
HEALTH 






' 



318585 



10 Color 
Computer 
Graphics 

TRSDOS 6.0 
Review 

Improv ng On 
Your Model 4 

Model I/III/4 



The 

Computerized 

Shrink 

Heart Disease 
Risk Factors 

Eat and Run: 
Model 100 
Diet Tracking 

Model 1 2/1 6 
DOS Patches 















natives 



The world of telecommunications is a jungle of con- 
fusing terms: From ASCII to protocols to terminhh 
emulations, there’s a lot for the computer novice to 
remember. That’s why we wrote MTERM. 

MTERM is the smart terminal package from 
Micro-Systems Software that goes beyond “user- 
friendly.” MTERM is the first terminal program to be 
“novice-friendly." You can be an MTERM expert in 30 
minutes. And because MTERM functions on so 
many different microcomputers, there is no need to 
keep re-learning the program. Universal command 



compatibiity makes transition easy. 

Feature for feature, there isn’t a better terminal 
on the market. Superior programming with top 
notch documentation make MTERM worth many 
times its reasonable price. 

So in the foreign land of telecommunications, 
don’t despair. Get the best translator money can 
buy. Maximum power and minimum effort. Finally, 
these two are in one program. 

For your TRS-80 , IBM, Apple , Zenith, or compatibl 
Microcomputers. Only $79.95 most versions. 
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TRS-80 and Apple are registered trademarkes of Tbndy Corp. and Apple Computers, respectively. 
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I own a TRS-80 □ Model I □ Model III □ 16K 



$30 
$199 
$230 
$25 
$12 
$14 

(free with CHROMAtrs) 
(free with CHROMAtrs) 



□ CHROMA BASIC (Previous owners only) 

□ CHROMAtrs assembled & tested, USA (With CHROMA BASIC) 

□ CHROMAtrs assembled & tested, European (except France) 

□ RF modulator with switch box 

□ Mod 1 ribbon cable 

□ Mod 3 ribbon cable 

□ Cassette software or 

□ Diskette software 
Subtotal 

N.Y.S. residents add 8.25% sales tax 
Shipping and handling (USA) 

TOTAL 
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ADD A WORLD OF COLOR 

TRS-80 

• . MC30 1 &■ MOO III 

< ' CHROMAtrs lAiCES IT HA 



TO YOUR 



This powerful peripheral offers you 
1 5 brilliant colors, lets you pro- 
duce sensational effects the same 
day you plug it in! Easy-to-use , 
‘'CHROMA BASIC” gives you A 
71 CHROMA COMMANDS to JH 
use in addition to regular i 
BASIC. You can devise £.•*% 
your own exciting games, 
plot points and lines, do jHhP^ 
3-D rotations, translations, 
create a large range of 
sprite graphics, produce 
charts and graphs, and ' 

make great sound effects. 



^ JOMAtrs™ 

lomes Complete 
With: 

■ 15 vivid colors 

► High resolution graphics 

|*2 Atari joystick and paddle 

3-D animation using sprite 

\ 16k display RAM 

j f • Programmability in BASIC 
• LOGO language subset on 

• One complimentary game 

IIP ' • Easy-to-understand operating 
manual 

• Does not affect Radio-Shack 
warranty 

Money-back guarantee 



Now You Can Create 
Spectacular Color Graphics... ^ 
Exciting Sound Effects... 

Paddle & Joy Stick Game Action! 



All Illustrations Produced By CHROMAtrs 



iis is a quality product that 
in multiply ^he value of your 
RS-80. Supplies are limited and 
ices subject to change. A word 
the wise: Order TODAY! 



ONLY 



CHROMAtrs 



(American Version. For European Version & 
accessories, see coupon below.) 




MICRO CONTROL SYS 



1590 Broadway, Hewlett N.Y. 11557 
Phone orders accepted (516) 569-4390 



(Formerly South Shore Computer Concepts) 
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spaced, upper/lower case, please) and allow 
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operating system. Text files may be on diskette, 
but please include a hard copy as well. Media 
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Our cover is a stylized caduceus depicting 
this month's theme of microcomputers 
and health. The original airbrushed artwork 
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Editorial 



By Cameron C. Brown 



Before an article gets into 
print it undergoes quite an 
ordeal. Here is the history of 
three articles that you never 
got to see. 

Our acquisition of H & E 
Computronics Magazine 
included a number of 
unpublished submissions. 
One was on an excellent 
bulletin board program 
called TBBS. We sent the 
reviewer our check for his 
work and were awaiting his 
acceptance. It never came 
and I wish to thank him. It 
turns out that the reviewer 
sent a copy of his review to 
the company and they were 
so impressed that they hired 
him to write the documenta- 
tion for a newer version. 
That placed him in the 
questionable position of 
reviewing a product from a 
company he worked for. 
Rather than cashing the 
check and not telling us 
about the ethical conflict, the 
author returned our money 
and told us why. Such 
behavior is commendable. 

In the same week, we 
received an anonymous 
letter from a reader that 
pointed out someone was 
attempting to pirate 
software through a notice in 
Basic Computing. We had 
material on its way to the 
same person for review and 




have been sent to other 
reviewers, but your chance to 
read them has been delayed 
by a few months. We were 
able to stop the copying 
before serious damage was 
done and our thanks to 
whoever that reader may 
be. 

We made an offer to 
another writer for an 
interesting program that we 
thought you would enjoy. As 
with all our offers, we 
enclosed a check and an 
acceptance letter to be signed 
and returned to us. In the 
span of our deliberations and 
the mailing of the offer (one 
month), it was published in 
another magazine. We 
probably never would have 
caught it, but the author 
called it to our attention and 
returned the money. 

That happened once before 
with a different writer. He 
was so chagrined that he 
proceeded to produce an even 
more in-depth and technical- 
ly accurate article for us. 

These are not stories of 
great heroics or fantastically 
scrupulous behavior. They 
are just examples of the 
events that have occurred 
recently. Much ballyhoo is 
made about pirates, thieves, 
cons and scams. From what 
we have seen lately, this 
industry is doing a nice job of 
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DUNGEONS OF DEATH. . .A serious D & D type game 
for you up to 6 players at a time. You get a choice of race 
and character, on screen mapping of the maze, a chance 
to grow from game to game, and a 15 page manual. 
Requires extended basic on TRS-80C. 

AVAILABLE ON: TRS-80C(16K), CMD 64, VIC 20(13K), 
TRS-80C 32K DISC 



QUEST. . . A different kind of adventure. Played on a 
computer generated map of Alesia You lead a small 
band of exployers on a mission to conquer the 
Citadel of Moorlock. Takes 2-5 hours to play and is 
completely different each time. 

AVAILABLE ON: TRS-80C(16K) CMD 64 

VIC 20(1 3K) TIMEX/SINCLAIR TI99/4A, 



CHARGE CARDS 



WELCOME 



1 - 800 - 624-4327 

AARDVARK rfctiait Softcwvte 

2352 S. COMMERCE RD. WALLED LAKE, Ml 48088 313/669-3110 



PHONE ORDERS ACCEPTED 
8:00 A.M. TO 8:00 P.M. E.S.T. MON-FRI 



AARDVARK ?4ctOy« Sofawvte 



TO ORDER: SEND AMOUNT INDICATED PLUS $2.00 SHIPPING, PER ORDER. INCLUDE STOCK NUMBER, QUANTITY DESIRED AND YOUR 
PREFERENCE OF TAPE OR DISK. BE SURE TO INDICATE TYPE OF SYSTEM, AMOUNT OF MEMORY, ETC. WHEN USING CHARGE CARD TO 
ORDER BY MAIL, BE SURE TO INCLUDE EXPIRATION DATE. 
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WITHOUT QUESTION, ABSOLUTELY — 

ARCADE STYLE GAME 

AVAILABLE, THAT WE KNOW OF. 



FAST AND FURIOUS. You become the wizard fighting off 
the thunderbolts of an angry Zeus. Multiple action. Are 
you good enough to keep up as the difficulty increases 
wave after wave. Hours of challenging fun. This is one 
game you may never completely master. 

AVAILABLE ON: TRS-80C(16K), CMD 64, VIC 20(13K) 

STOCK #1007 TAPE:$24.95 DISK: $29.95 

mX* 



PYRAMID... Our toughest and most intrigueing 
adventure. Average time though the pyramid is 
50-70 hours. Clues everywhere and some very 
ingenious problems. This one is popular 
around the world. 

AVAILABLE ON: TRS-80C (16K) CMD 64 
VIC 20 (13K) TIMEX/SINCLAIR TI/99-4A 
STOCK #5002 TAPE: $19.95 DISK $24.95 



AARDVARK So^ttMVtc 

IS AVAILABLE AT SOFTWARE RETAILERS EVERYWHERE. IF YOUR LOCAL 
COMPUTER OR SOFTWARE STORE DOES NOT CARRY IT - ASK THEM WHY NOT. 
SEND ONE DOLLAR FOR ILLUSTRATED CATALOG. DEALER INQUIRES INVITED. 



SlUUUffAJU/ IAKt: Siy.yb UISK: 524.9b 

Quest is also available on TRS-80C as a 32K extra memory, extra fun adventure. It's a little more difficult, 
and will test the most experienced explorer of the kingdom. 

STOCK #7006 TAPE: $24.95 DISK: $29.95 



HOURS OF FUN AND ENJOYMENT FROM THE “ADVENTURE PLACE” 





Letters to the editor 



By Cameron C. Brown 



I have recently changed from a 
Model I 16K Level II computer to a 
Model III 48K Level II computer. 
Because of this, I have been 
reviewing the older issues of 80 U.S. 



Radio Shack TRS-80 



MODEL 4 UTILITIES 



NEW FOR MODEL 4 OWNERS 

Utilities to access Model 4 features while in 
Model III mode. 

Increase Your Processing Speed (4 MHz) 

Test Memory (Up to 128K) Routine 
Clear Memory Routine 
Use Sound (Beep) 

All Four Utilities on Diskette 

$18.99 



SUPERSCRIPSIT 
PRINTER DRIVERS 



With an ALPS printer driver (software), you can 
attach your printer to the SuperSCRIPSIT word 
processer. Over 50 printers now supported. Call 
or write for latest Product Review Sheet. 

Epson MX80 , MX100, FX80, FX100 / Qutae Sprint 5 
Silver Reed EXP 550 / IDS Prism, Microprism 
C.Itoh Prowriter (8510), F-10, FP-1500-25 
Olympia ESW 102,103,3000 / DTC 380Z 
NEC 8023, Spinwriter 5530,7730,3530 
Diablo 630,1610,1620 
$59 



Bytewriter / Olivetti ET121, ET221 / Comex HR-1 
Adler 1010,1030 / Royal 5010,5030 / Dynax X-15 
Smith-Corona TP-I / Gemini 10.10X.15 / AJ 831 
Okidata Microline 82, 83. 84, 92, 93. 84S2 
R. S. Line Printer V / DW1 / Brother HR-1 
$49 



SERIAL PRINTERS 

Serial Interface Program for Serial Printers $19 
Can be used for applications other than SCRIPSIT 



Mail / Phone Orders Accepted 

ALPS 



23 Angus Hi 
Warren, New Jersey 07060 

201 - 647-7230 



Journal and have found two articles 
which I believe should be repeated 
for the benefit of Model III owners. 
These articles were written for the 
Model I to decrease the number of 
256-byte leaders when saving data 
to tape. In addition, the data is saved 
and read at 1500 baud for the Model 
III. The articles are “Fast Array 
Save and Load” by Barry Geller, 
Jul/Aug 1980 page 24, and Sep/Oct 
1980 page 10 and “Machine 
Language Utility Routines” by Jay 
G. McKinney, Jan/Feb 1981 page 
34. 

To run on the Model III, the first 
article needs the following changes: 
change line 320 of the assembly 
language listing to a RET, and 
change the POKE addresses in the 
BASIC line 30030 to be appropriate 
to the program ORG in line 100 of 
the assembly listing. The second 
article needs no alteration. 

A very interesting application of 
the above utilities is their insertion 
into “A Cassette Library” by Roger 
Amidon, Jan/Feb 1980 page 64. 
This program originally contained a 
string array of 50 strings and seven 
numeric arrays of 50 integers each. 
By changing the numeric arrays to a 
single 50x7 array and inserting both 
of the above utilities, the speed for 
dumping and loading data is 




replace the first character of the first 
string with the numeric key used to 
call up the desired display. The new 
character then remains as part of 
the display. This error can be 
corrected by use of the following line 
immediately after the input of data 
from tape has been completed: 320 
Q$ = BK$(1): BK$(1) = Q$. I have 
been unable to determine the cause 
of the error, but since an easy 
solution has been found, it is no 
longer a problem. 

Robert Hood 
Bremerton, WA 

The articles you refer to are from 
issues that are no longer available, 
but we will be happy to send copies 
to any interested readers. Please 
enclose a stamped self-addressed 
envelope if you would like us to send 
you the article(s).-Ed. 



I am writing to ask if any of your 
readers have experienced any 
problems running multi-part forms 
on the Radio Shack Line Printer VII. 
The paper becomes jammed in the 
mechanism because there is too little 
clearance. I have even had the 
problem occasionally with single- 
sheet paper. 

Dennis M. Daigle 
Antioch, CA 

We don't have a Line Printer VII 



in-fwm, Mm » rwfcrm Mp,- 



rr 



problem. When the data is loaded -Ed. 

from tape, the first display of data is 
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Letters 



like your magazine and I know that 
BASIC is a popular language, but 
Pascal is a much more structured 
language. Why don’t you try to start 
a column dedicated to Pascal 
programs and to teaching good 
methods? 

Rob Williamson 
Hacienda Heights, CA 

We will gladly run Pascal 
programs , as well as Lisp , 
FORTRAN , COBOL , or any other 
language if it has reader interest. 
Your comment on structure and 
good methods is not quite on the 
mark. Structure, that is, carefully- 
developed program flow, is lan- 
guage-independent. Good program- 
ming methods are also language 
independent. There is an excellent 
series of books from Hayden 
Publishers, one of which is called 
“BASIC with Style: Programming 
Proverbs”. They also offer a similar 
book for Pascal, FORTRAN, 
COBOL as well. Structure is not 
necessarily dependent on the 
language, but it definitely is on the 
programmer. -Ed. 



Please note that “Football 
Forecaster” (the title of an article in 
the September issue) is the title of a 
copyright-protected program from 
Hawg Wild Software. I just wanted 
your readers to be aware of the fact 
that a spread-predictor program by 
the same title was on the market for, 
among other machines, the TRS-80 
Color Computer. Thank you, and 
keep up the good work on an 
excellent publication. 

Gary Smith, President 
Hawg Wild Software 
P.O. Box 7668 
Little Rock, AR 72217 
We hope no readers were confused. 
Perhaps you could compare our 
forecasting with yours and let us 
know which one does better.-Ed. 



I usually tear your magazine 
apart to file the articles and save 
space. You have begun to make this 
more difficult by putting adjoining 
articles back-to-back so that one 
page must be photocopied to save 
both articles. 

Anonymous 
Louisville, KY 

How about taking out another 
subscription ? That would make us 
both happy. -Ed. 

Refer to advertiser index for reader service number 



Mr. Dettmann: I enjoyed your 
September, 1983 “Minicalc” 
spreadsheet program for the Model 
100. I typed it in immediately and 
find it works fine. Thanks so much 
for your skill in writing the program 
and sharing it with us. 

Victor F. Wright 
Indianapolis, IN 
Thank you for letting us know. 
Terry has told us the the program 
has been placed on the Model 100 
SIG on CompuServe and it has 
drawn excellent response. Some 
users have also reported on the SIG 
that they have made enhancements 
to it for replication, double precision, 
and more. -Ed. 



I have encountered a problem with 
my Model II BASIC. The manual 
states “The MERGE statement 
takes a BASIC program from disk 
and merges it with the resident 
program in RAM. MERGE also 
closes all files and clears all 
variables. Upon completion, BASIC 
returns to the command mode.” Is 
there a patch available that would 
allow BASIC to execute the next line 
of the program? 

Allan G. Lebbin 

Youngtown, AZ 

Racet Computes, Ltd., 1855 West 
Katella, Orange, CA 92267, (714) 
997-4950, sells a program entitled 
REBAS. It is an enhanced BASIC 
utility that allows you to merge, load 
and run programs without losing 
variable values. The package also 
includes sophisticated BASIC 
editing options, type-ahead, screen 
protect and other features. It sells for 
$99.95. -Ed. 



I greatly enjoyed the program 
“Wordfind” in the August issue. I 
even added an angelfish printout to 
the graphics choices. However, I 
think it would make the puzzles 
more challenging if the words were 
allowed to intersect as they do in 
manually-created puzzles. A simple 
series of program alterations will 
permit the overlap of words. Instead 
of requiring an unused space at a 
given point, accept a letter which 
coincides with the current letter to be 
positioned. Using the sequence at 
lines 440 through 490 as an example, 
the change is: 

460 IF A$(A+J,B) = THEN 470 



465 IF A$(A+J,B) <> MID$(W$(I), 
J+l, 1) THEN 410 
470 NEXT 

Equivalent changes are needed to 
each of the other insertion routines. 

William M. Cooper, Jr. 

Chatham, NJ 



I wish to thank the many readers 
of H&E Computronics who wrote 
concerning my series of articles 
entitled “COBOL Primer” in that 
journal. As it will not be continued, I 
would like to advise readers that 
help is available. A fine book on RM 
COBOL has been published 
specifically for the Tandy machines. 
While it is by no means complete, it 
does cover much and gets the 
beginner well over the initial 
problems. It is called TRS-80 
COBOL by Robert T. Grauer, from 
Prentice-Hall publishers (1983). I 
strongly suggest that interested 
readers obtain this text to help them. 

Hubbard C. Goodrich 
So. Harpswell, ME 



MIKROKOLOR 

TRS-80* MODEL 100 
COLOR GRAPHICS 

High resolution color graphics for graphs, charts, 
games, animation, business applications, teaching, 
scientific display. Allows full sized color text and 
graphics as featured in 80 Micro magazine, May & 
June 1983. 

Display on any sized Color Monitor or Color TV with 
modulator. 

256 x 1 92 Color Graphics - 1 5 colors plus trans- 
parent. 

3 dimensional Sprite planes - Simultaneous 
display of planes. 

4 Modes of operation available: 

1. - TEXT: 24 lines- 40 characters per line, 6 

x 8 matrix, 256 user defineable characters 

2. - MULTICOLOR: 64 x 48 Color Graphics. 

3. - GRAPHICS 1: 256 x 192 ColorGraphics, 

24 lines - 32 characters, 8x8 matrix, 2 
colors per character. 

4. - GRAPHICS 2: Same as Graphics 1 ex- 

cept 1 6 colors per character. 

SPRITES: Active in all but text mode, 32 prioritized 
3-D planes, 15 colors plus transparent, easily 
provides animated graphics with simultaneous dis- 
play of all sprites. Composite Video Output (NTSC). 
Comes with sample programs and instructions. No 
hardware modifications necessary, plugs into ex- 
pansion socket. Uses Texas Instruments TMS991 8A 
Video Display Processor. On board RAM uses no 
system memory space. 

User manual only - $5.00. Money Order, COD, 
checks or credit card. Personal checks must clear. 
COD add $2.00. Visa. Mastercard add 4%. Calif, 
residents add 6% sales tax DEALER INQUIRIES 
INVITED. 

$235.00 Assembled and tested. 
$195.00 Kit, with instructions 

ANDREASENS ELECTRONICS 
RESEARCH & DEVELOPMENT. Inc 

Technical Assistance: Box 5686, 
Vandenberg, Ca. 93437 
To Order: 1548 Monterey St, San Luis 
Obispo, Ca 93401 ph (805) 541 -6398 

*TRS-80 Trademark of Radio Shack/Tandy Corp. 
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Club Subscription Rates 

We offer a special discount to 
computer clubs and user groups. 
Subscription is only $14.00 per year 
when submitted by a computer club. 
To qualify for this 30 percent 
discount off our regular rates, we 
require that all subscriptions be 
submitted at the same time, that 
there be a minimum of ten orders, 
and that they be for one-year 
subscriptions. The offer does not 
apply to two or three subscriptions. 
All requests for club rates should be 
sent to Basic Computing , 3838 So. 
Warner, Tacoma, WA 98409 and not 
to our subscription house in Cicero, 
IL. Be sure to tell your club secretary 
about this special bargain. 

Lobo Systems Sold 

Controlling interest in Lobo 



CLASSROOM 

SOFTWARE 

for the 16K TRS-80 

Easy-to-use software for models I/Ml with tape. disk, 
or network Complete manuals plus on-screen instruc- 
tions. As simple as typing CLOAD and RUN 
Each program recorded twice on a separate side of a 
quality, long-lasting cassette. 

CLASSROOM PACKS. Each has 4 programs in a subject 
area and permits self-paced study with unlimited 
running time. Choice of review or self-test modes plus 
progress reports and help feature. Missed questions 
are corrected and recalled until learned. Price S44.95 
each. 

• Geography I • Driver Education 

• U.S. Government I • Electronics I 

• U.S. History I • Music Theory I 

Other outstanding cassette software: 

• Logic Games Package $24.95 

• Anagrams $19.95 

• Scramble-Grams $19.95 

30-DAY GUARANTEE 

At local dealers or order direct. 

Educational 

Media 

Associates 

Classroom Software 

342 West Robert E. Lee 
New Orleans, LA "701 24 

MC & VISA include card # and expiration date Free 
shipping on prepaid and credit card orders. Others add 
$1.50 per package. 



Systems has been sold to Venture 
Investments. Mr. Roger Billings, the 
founder and president of Lobo 
Systems, will remain on Lobo’s 
Board of Directors. The move was 
precipitated by a need to raise more 
capital for advertising, promotion 
and development work. The infusion 
will also enable Lobo Systems to 
begin shipping from stock instead of 
as having to build and ship as orders 
are received. 

VAL(A$) Bug 

Mr. Hal Broenkow of Edmonds, 
WA wrote us telling of a problem 
with the VAL function in BASIC. 
The VAL(A$) function seems to 
work quite nicely to change a string 
representation of a number into a 
numeric variable, with one 
exception. VAL(A$) reads the 
numeric value of a string variable, 
from left to right, until it finds the 
first non-numeric character. 
Consider this routine for accepting 
input in the range from 0 to 200: 

10 LINEINPUT A$ 

20 IF VAL(A$) > 200 OR VAL(A$) 
<0 THEN PRINT “Out of range”: 
GOTO 10 
30 A = VAL(A$) 

It works nicely on the Models I/III 
unless the program asks for a 
percentage and the user types in a 
numeral followed by a percent sign 
(%). For some reason, this upsets 
BASIC and a syntax error results. If 
A$ = 863.93ALD, A = 863.93. If A$ = 
JK734.81, A = 0. If A$ = 5H36, A = 5. 
But if A$ = 42.5%, you get a syntax 
error. The problem can be corrected 
in Disk BASIC by adding one test: 
15 IF INSTR(A$, “%”) THEN A$ = 
LEFT$(A$, INSTR (A$, “%”) -1) 

This line picks off the offending 
percent symbol and allows line 30 to 
recognize the numeric part of the 
string. Only the percent symbol 
seems to upset VAL. The function 
will work perfectly on other string 
characters. 

Interestingly enough, the Model 
100 and Model II have a similar 



By Cameron C. Brown 

problem. Although the percent 
symbol won’t provoke a syntax 
error, the presence of a percent 
symbol will cause the VAL function 
to disregard any fractional part of 
the number. On the Model II or 100: 
if A$ = 38% then A = 38, but if A$ = 
38.75%, then A = 38, not 38.75 as it 
should. The Model 4 seems to have 
had a correction made in ROM and it 
no longer has the problem. Also, the 
problem does not appear to be 
related to variable precision 
designation since ! and # are 
accepted by the VAL function. 

Corrections 

“Model II Disassembler” by J. 
O’Loughlin, October, 1983, was 
missing his address. Readers who 
desire the program on disk should 
send their requests to J. O’Loughlin, 
908 Salem Dr., Huron, OH 44839. 

Our apologies for mislabeling the 
August, 1983 article entitled 
Command Your Printer. The code 
given was for Model I machines only 
and will not work on a Model III. Mr. 
Greg Neill of Wildwood Crest, NJ 
successfully converted it for a Model 
III and the needed changes are 
shown in Listing 1. As a bonus, he 
included the changes needed for the 
program to work with a Microline 80 
printer. The codes in the original 
article were for a Radio Shack Line 
Printer VI. 

For operation with a Microline 
also make the following changes: 
Line 4500 LD A,1DH 
Line 5000 LD A,1EH 
Line 6900 LD A,42H 

“Files and Foibles,” August 1983, 
has a section that needs a little more 
explanation. The programs runs 
fine, but there is some confusion 
when entering the first record into 
the mail list file. When you are 
adding the first record, select option 
three (Add), and respond NO to the 
new file question and continue. The 
question “New file?” is used to recall 
a file from disk that is to be merged 
with, or replace, data that is 
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currently in memory. 

Our review of The Arranger 
program from Triple D Software in 
our September 1983 issue gave the 
wrong phone number. Triple D 
Software can be reached at (801) 546- 
2833. 

The August 1983 column, BASIC 
bits had a program for renaming 
Model III TRSDOS diskettes 
(Listing 3, page 50). Line 30 has been 
giving syntax errors since the FOR 
. . . NEXT loop was defined using 
hex values. Change line 30 to be 
FOR N - -16656 TO -16644 and it will 
work just fine. 

“Minicalc, ” a Model 100 
spreadsheet program, September 
1983, has a line that is causing some 
readers difficulty. Line 93 of the code 
contains F4$=“\ V\ The 

backslash is created on the Model 
100 by depressing the graph and 
minus keys. Note that there are six 
spaces between the backslash 
marks. 

Puzzler 

Be sure to take a look at the article, 
“A Potpourri of Puzzlers.” It gives a 
number of solutions to previous 
problems. This month, we are 
looking for palindromic sentences. 
A palindrome is defined as a word, 
verse, or sentence (as “Able was I ere 
I saw Elba”) that reads the same 
backward or forward. Notice that 
upper and lowercase do not have to 
match, but word spacing must. 
Don’t worry about ending periods, 



but internal punctuation such as 
commas or apostrophes do count. 
Assume the phrase to be tested is A$. 
Can you give a routine that will test 
A$ to see if it is palindromic? Send 
your code to November Puzzler, 
Basic Computing , 3838 So. Warner, 
Tacoma, WA 98409. The winner will 
obtain a free six-month subscription 
extension. 

In This Issue 

Our theme is health and we have 
programs that keep track of your 
eating habits, analyze your chances 
of heart disease, take a look at your 
stress levels and more. Now that’s 
what I call personal computing. 

“Match/Bas” by Charles 
Edwards is so useful, we wonder 
why we didn’t think of it before. Now 
you can easily compare your 
programs on disk and see where 
they differ. A great idea for those of 
us who can’t keep track of which 
version is which. 

Bob Snapp has made available his 
fixes and enhancements for Model 
12/16 TRSDOS 4.2. Be sure to put 
them on. Color Computer owners 
have an easy-to-use graphics utility. 
It clearly shows that a “game” 
machine is much more than that. 
Model 4 owners have TRSDOS 6.0 
explained and some useful hints on 
making the machine even better. 
Our regular columns and tutorials 
cover the gamut of skills and 
interests. We hope you enjoy them. 
Happy Thanksgiving. 



Listing 1 Model III Changes for Command Your Printer 



CHANGE the following lines: 



01500 


DOSBUF 


EQU 


422CH 


; DOS Ccmrand buffer 


04500 




LD 


A,1DH 


; Condense ccmrand 


05000 




LD 


A, 1EH 


7 Escape character 


06900 




LD 


A,42H 


7 12 lines/inch mode 


10500 


CLM 


LD 


HL, (4411H) 


7 Get Himem location 


15500 


ADTASK 


EQU 


447BH 


7 Add to interrupt chain 


15600 


HIMEM 


EQU 


4411H 


7 Dos high memory pointer 



ADD the following lines: 



01501 


INIT 


EQU 


0069H 


01502 


PRCHAR 


EQU 


003BH 


01650 




CALL 


INIT 


12850 




CALL 


PRCHAR 



DELETE Lines 5200 and 5300 




Buy Direct and Save 

• 5V4 SS and DS Diskettes 

• Soft Sector Format Only 




MICROSETTE CASSETTES 

• Error-Free Computer Grade 

• Industry Leader Since 1977 



For Tandy, Apple, Osborne, 
IBM, Atari, Texas Instruments, 
Commodore, Timex, Kaypro, 
Sinclair and Many Others. 



CASSETTES 



Item 



10 Pack 



Qty 



50 Pack 



Qty 



Total 



C-10 



$ 7.50 



$32.50 



C-20 



9.00 



39.00 



C-60 



11.00 



50.00 



C-90 



15.00 



70.00 



DISKETTES 5 1 /»-inch 



SSDD $25.00 



$100.00 



DSDD 35.00 



150.00 



Subtotal 



Shipping & Handling 



N/C 



Calif. Cust. add Sales Tax 



Total 



□ Shipping Address Enclosed 

□ Check Enclosed 

□ Visa □ MasterCard 

Card # 



Exp. Date 
Signature_ 



MICROSETTE CO. 

475 Ellis St. Dept. 1 
Mountain View, CA 94043 
(415) 968 1604 
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Eat and run 



Graphically display the brutal truth 
of your eating habits 



Model 100 



This program is a natural application for a go- 
anywhere computer like the Model 100. It tallies what 
you eat through the course of a day and graphically 
shows the brutal truth about your eating habits. Besides 
helping you maintain a balanced diet and control of 
your weight, it makes nice use of bar graphics and shows 
how BASIC can work with .DO data files. 

Here’s what happens when you run the program: A 
bar chart is displayed showing your daily goal for each 
of the seven types of food. After you’ve eaten, you would 
update the file by entering the code for the type of food 
and the number of units of that food you consumed. For 
example, if you ate two apples, you’d enter F for “fruit, 
followed by a 2. Immediately, the computer will draw 
you a revised chart and save your updated consumption 
data onto a file called CHART.DO. 

CHART.DO contains your food intake data for the 
past five days. To conserve memory, records are rolled 
off the file once they are six days old. Using the ever- 
present DATE$, the program automatically creates a 



Table 1 

The program allocates your food intake into 
seven categories. You should try to eat a fair share 
from each group, as shown by the chart. Don’t 
overeat in any area — especially those oils and 
sweets! You will be asked for “units” of each food. 
In general, a unit is a reasonable single serving. 
Below are typical one-unit portions of each type. 

Dairy: 1 cup milk or yogurt, l l / 2 oz. of cheese. 

Fruit: 1 apple, orange or small bananna, small 
glass of unsweetened juice or fruit cocktail. 

Vegetable: 1 cup mushrooms, cabbage or cu- 
cumber, y 2 cup broccoli, green beans, carrots or 
tomato juice. 

Protein: 2 oz. lean pork, beef or skinless 
chicken, 4 oz. fish, two eggs. 

Carbohydrates: 1 slice bread, 1 small potato, 
1% cups popcorn, 3 / 4 cup cereal, y 2 cup rice or 
noodles. 

Oils and Fats: 1 tsp. butter, vegetable oil, 
mayonnaise, 1 slice bacon. 

Sweets: 1 small serving of ice cream, cake, soft 
drink, pudding. 



Ron Reed, Washington, D.C. 

new daily record the first time it is run on any given day. 
Thus, if you were to display CHART.DO on your screen, 
you’d see five rows (records) of daily data. The first two 
items are the month and day; the next seven fields 
represent your daily intake of foods from each of seven 
food categories. 

The chart sets your daily goal at two units of dairy, 
three protein, three fruit, four vegetable, three 
carbohydrate, one oil, and one-half sweet. This 
corresponds to a daily intake of about 1500 calories and 
assures you of a proper nutritional balance. If you prefer 
to eat more than that, you can change your quotas by 
altering line 5190 of the program. 

Table 1 shows what typically constitutes a “unit” for 
each of the food groups. The program allows decimal 
numbers so you can enter, say, 0.1 units of dairy to 
represent the cream in your coffee. Some foods, of course, 
are combinations. For example, a hamburger might 
count as one unit of protein (the meat) and one unit of 
carbohydrate (the bun). The main point is to account for 
everything you eat. 

After you’ve typed the program, you will need to 
initialize a text file called CHART.DO. To do this, just go 
into text mode and type the following: 

MDDPFVCOS 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

The purpose of the top line is to help you read the 
columns when you display CHART.DO on the screen. 
All those zeroes will be replaced by other numbers once 
you start using the program. 

I hope you find this program enlightening. It demon- 
strates some very appropriate uses for the Model 100. 
With slight modifications, it can also be used to keep 
track of travel expenses, exercise, time allocations, or 
any other applications you can dream up that combine 
file I/O with graphics. 

Program Listing for Eat and Run 

10 OPEN" RAM: CHART. DO 11 FOR INPUT AS 
1: DIMR( 8,5) : INPUT# 1,T$ 
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IMP TIMES 

FASTER THAN 




dBASE II 



If you bought your computer to save time, then you 
need SUPER, the most powerful database system you 
can use. Power is a combination of speed, ease of use 
and versatility. SUPER has them all. 

FAST - To demonstrate SUPER’S speed, ISA retained a 
professional dBASE programmer to benchmark SUPER 
vs. the acknowledged leader. A simple mailing list 
application was chosen to minimize dBASE 
programming cost. The results: 



Task 

Set up/Program 
Input 100 records 
Sort & Print Labels 



SUPER Time 
5:20 
50:29 
6:41 



dBASE II Time 
12:18:00 
1:27:50 
4:18 



Totals 



1:02:30 hrs. 13:50:08 hrs. 



Notice that SUPER was faster at every task where your 
time is involved— and saving your time is probably the 
whole reason you bought a computer. 

EASY TO USE - SUPER won because of its ease of 
use. Since it is menu-driven, office personnel can easily 
learn to use SUPER to set up their own applications, 
speeding and simplifying dozens of tasks without the 
need of programmer support. 

VERSATILE - SUPER, unlike other business 
programs, doesn’t dictate how to run your business. 
With SUPER the computer does what you want, when 
you want, the way you want it. SUPER may be the only 
business program you’ll ever need. It can handle 
customer files, payables, receivables, depreciation, 
appointments, cost accounting, time charges, 
commissions, inventory, manufacturing control, and 
even matrix accounting systems! 

SUPER PERFORMANCE AT A SUPER PRICE - 

That SUPER beats the $700 dBASE program may 
surprise you, but in terms of price vs. performance 
SUPER has no competitors. Among its features are: 
production input, data compression, multiple databases 
on line, transaction posting, file reformating, stored 
arithmetic files, flexible report formats, hierarchical sort 
and multi-disk files for up to 131, 068 records. It can 
select by ranges, sub-strings, and field comparisons. It 
interfaces to word processors such as WordStar™, 
SuperSCRIPTSIT™, Model 11/16 SCRIPTSIT™, and 
NEWSCRIPT™. In fact SUPER has so many features that 



it takes a six-page product description to cover them all. 
Write or call and we’ll send you one. 

SUPER is available for TRS-80™ Models I & III under 
NEWDOS™, LDOS™, and DOSPLUS; for TRS-80 Models 
II, III and 16 under TRSDOS™; and CP/M™ systems. 

NOW $199.00* 

Manual (Price applicable to purchase) $25.00 

NOW AVAILABLE FOR IBM-PC 

*$15.00 formatting charge for non-standard CP/M version. 
MasterCard and VISA accepted. 



OTHER SOFTWARE 

• ManageMint™: A PERT/CPM project 
management system compatible with SUPER. It 
includes scheduling, resource and financial 
management modules. 

• Sales Planning and Data Extraction System: 
Improves hit rates while cutting costs. 

• Small, economical program packages for 
accounting, business and office applications as 
well as utilities. 

Write for Catalogue 




Institute For Scientific Analysis , Inc. 



SOFTWARE FOR HARD USE ™ 



Dept. U-1 Institute for Scientific Analysis, Inc. 

P.O. Box 7186 Wilmington, DE 19803 (215) 358-3735 
Orders only: (800) 441-7680, ext. 500 

CDC, 13715 Vanowen St., Van Nuys, CA 91405 (213) 873-6621 
Outside of California: (800) 692-5235 

Trade mark owners: dBASEII-Ashton-Tate. SCRIPTSIT, SuperSCRIPTSIT, TRSDOS, 
and TRS-80-Tandy Corp. NEWDOS/80-Apparat, Inc. WordStar-MicroPro Inti. Corp. 
NEWSCRIPT-PROSOFT. LDOS-Logical Systems, Inc. CP/M-Digital Research. 



Eat and Run 



40 FORY=0TO4:FORX=0TO8: INPUT# 1,N: 
R( X , Y ) =N : NEXTX : NEXTY : CLOSE# 1 

1 20 MM=VAL( LEFT$ ( DATE$ , 2 )): DD=VAL 
(MID$ ( DATE$ , 4,2) ) :R(0,5)=MM: 
R( 1 , 5 ) =DD : IF DD=R( 1,4) THEN Y 
2=4 ELSE Y2=5 
140 GOSUB 5000 

200 PRINT® 44, “CHOOSE ONE:": PRINT 
® 1 2 1 , " DAI RY CARBOHYDRAT 

E" : PRINT® 161, "PROTEIN OIL 
AND FAT" :PRINT®201, "FRUIT 
SWEET" : PRINT® 241 , "VEGETA 
BLE QUIT" :A$=INPUT$ ( 1 ) 

310 I FA$ = " D " THEN X=2:GOTO400 
320 IFA$="P" THEN X=3:GOTO400 
330 IFA$="F" THEN X=4:GOTO400 
340 IFA$="V" THEN X=5:GOTO400 
350 IFA$="C" THEN X=6:GOTO400 
360 IFA$="0" THEN X=7:GOTO400 
370 IFA$="S" THEN X=8:GOTO400 
380 IFA$="Q" THEN GOTO 910 
390 PRINT "Please type carefully" 
: BEEP: FOR ZZZ=1TO200: NEXTZZ 
Z : GOTO140 

400 CLS: PRINT: PRINT" ";A$: INPUT " 



How many additional units";N 

460 R( X, Y2 ) =R( X, Y2 ) +N : IF R(X,Y2)> 
6.3THEN R(X, Y2 ) =6 . 3 

470 GOSUB 5000 

480 GOTO200 

910 OPEN" RAM: CHART. DO" FOR OUTPUT 
AS 1 : PRINT# 1,T$: FOR Y=Y2-4TO 
Y2 : PRINT# 1 , R( 0, Y) ;", ";R(l,Y) 
; " , " y R( 2, Y) ;", ";R(3,Y) ?", ";R 
(4,Y) ; " , " y R( 5 , Y) ;",";R(6,Y) ? 
", " ; R( 7, Y) ;", " ; R( 8, Y ) : NEXT Y 
: CLS: END 

5000 CLS : PRINT® 66 , "D P F V C O S" 
: LINE ( 150, 0 )-(238,63),l,B:RE 
STORE 5190 :X=2 

5120 FORI=152 TO 224 STEP 12 : READ 
A 

5130 LINE( I,63)-(I+12 , 63-A) , 1,B:L 
INE (I,63)-(I+12,63-10*R(X, Y 
2 ) ) , 1 , BF : IF 10*R( X, Y2 ) >A THE 
N LINE ( I , 63— A) — (1+12, 63-A) ,0 

5180 X=X+1 : NEXT I 

5190 DATA 20,30,30,40,30,10,2 

5999 RETURN 



DISCOUNT COMPUTERS 

100% RS COMPONENTS, NO FOREIGN DRIVES OR MEMORY - FULL WARRANTY 



24K MODEL 100 

16KMODEL4 

64 K MODEL 4, 2DR, RS232 . . . 

80K MODEL 12, 1 DR 

80K MODEL 12, 2DR 

256K MODEL 16B, 1DR 

256K MODEL 16B,2DR 

256K MODEL 16B, 1DRW/HD 



. 799.00 DM P 100 PRINTER $ 299.00 

.799.00 DMP 200 PRINTER 599.00 

1579.00 DMP 500 PRINTER 1029.00 

2499.00 DM P 21 00 PRINTER 1 599.00 

3149.00 DWP 410 DAISY 1095.00 

3898.00 DWP DAISY WH EEL 1 1 1 599.00 

4510.00 12 MEG HD MODEL 11/12/16 . . 2369.00 

5439.00 ALL RS SOFTWARE 20% OFF 



CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS 

(817) 825-4027 

NOCONA ELECTRONICS • Box 593 • Nocona, TX 76255 
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THE COMPUTER TANDY 
SHOULD HAVE BUILT. 



Software-selectable screen formats 
let you run either 24 x 80 CP/M or 
16 x 32 and 16 x 64 LDOS programs. 



Monitor comes in your 
choice of green or amber 
phosphor display. 





With our built-in disk interfaces, 
you can simply plug in any 
combination of peripherals. 



Standard Centronics-type 
parallel port accommodates 
a wide variety of printers. 




jnrwjmxr-/m nr 







Our 5MHz Z-80B processor Rugged construction includes heavy Available storage includes Lobo’s All Lobo hardware products 

runs your programs 25% faster duty case and full-stroke 5-1/4" floppy, 8" floppy and carry a limited one-year 

than TRS-80 Model 4. sculptured keyboard. Winchester hard disks. parts and labor warranty. 



AT THE PRICE TANDY 
SHOULD HAVE CHARGED. 



The bottom line is this. For far 
less than the price of a TRS-80* 
Mod 4, you can own a lot more 
computer. 

A computer that’s 25% faster. 

That supports both the CP/M® 
Plus and LDOS™ operating 
systems. 

A computer that features a 
price tag of only $945 for the 
MAX-80* processor. And that 
expands with your needs with- 
out breaking your budget. 

A FLEXIBLE SYSTEM 
AT A FLEXIBLE PRICE 

When you put it all together 
—an entire system, including a 
dual 5-1/4" floppy drive sub- 
system (320 Kb of disk stor- 
age), monitor, CP/M and LDOS 



—totals up to just $1599. 

Totally remarkable. 

But that's not all. Because 
this basic MAX-80 system is 
incredibly flexible. Its dual 
operating systems run far more 
software than any other com- 
puter. (Including our specially- 
discounted Perfect-Calc™ and 
Perfect-Writer™ software 
packages.) 

And since our MAX-80 fea- 
tures two RS-232C serial ports, 
you can easily add both printer 
and modem without switching 
back and forth. 

SUPPORTS A WIDE VARIETY 
OF PERIPHERALS 

What’s more, Lobo offers 
almost any peripheral you 



might want to add to your 
MAX-80. At very special prices. 

Like $995 for a 5Mb Win- 
chester hard disk, the ultimate 
in fast, accurate data storage. 

Or a whole line of affordable 
dot matrix and letter-quality 
printers. Or an 8 " floppy drive. 
Or even a MAX-80 local area 
network. 

EVERY PIECE OF HARDWARE BACKED 

BY OUR UNBEATABLE WARRANTY 

Because every part of the 
MAX-80 system is so rugged 
and reliable, we go beyond 
industry-standard 90 day war- 
ranties. We back every piece 
of Lobo hardware with a full 
year warranty. 

So now, you can run virtually 



all your TRS-80 programs faster 
and cheaper. 

Just give us your Visa or 
Master Card number. We’ll 
rush you the MAX-80. Try it out. 
Then, if for any reason you 
change your mind, return it with- 
in 30 days. We’ll return all your 
money. 

So call us. Because owning 
a MAX-80 costs you $945. But 
finding out about it costs you 
nothing. 

1 - 800 - 235-1245 

(1-800-322-6103 in California) 

LOBO 

SYSTEMS, INC 

358 South Fairview Avenue, 
Goleta, California 93117 



TRS-80 is a registered trademark of Thndy Corp, CP/M is a registered trademark of Digital Research Corp. LDOS is a trademark of Logical Systems. Inc. Perfect-Calc and Perfect -Writer are trademarks of Perfect Software. Inc C 1983 Lobo Systems. Inc. 





The computerized shrink 

How do you score on this stress test? 



Models I/II/III/4/1 2/16 



A black Rabbit GTI slides into a vacant parking space 
and becomes silent. The license plate announces that 
the driver is an EGO FXR, a pillar of the community, a 
professional marriage and family therapist, a man with 
a weird sense of humor! 

My day begins as I call the answering service to check 
for messages and return calls. I wind the cuckoo clock 
and fire up the Prowriter and Model III since I know one 
of the people I’ll be seeing was referred by his physician 
for a stress analysis. Later this afternoon, I’ll use two 
other programs I’ve written. The smaller one assesses 
the degree and type of depression in a person, and the 
second compares how spouses see themselves and each 
other with how they would like to be and how they would 
like their partners to be. 

If I have an hour or two free between appointments, 
I’ll use Newscript to write a diagnostic evaluation and 
treatment plan for a client’s attorney and plug away at 
my monograph-in-progress, “Interpersonal Systems: 
Beyond Two-dimensional Models.” In the past month, 
I’ve also written three major proposals: one, to teach a 
post-graduate course in marital therapy for 
psychologists; another to establish our organization as 
the Employee Assistance Program provider for a local 
school district; and the third to request a hard disk for 
the Model III, a Model 100, and an auto-answer modem 
from Radio Shack’s Educational Grants program. If 
that equipment is provided, we will create a major 
database of downloadable articles on various 
psychological topics (from assertive communication to 
zoophilia) and an “Ask the Shrink” confidential bulletin 
board — the first such undertaking west of Ohio. 

When I finish my last session tonight, I’ll sign onto 
CompuServe and check for new messages in the Mental 
Health Section of MEDSIG (Go SFP-5, for those who 
would like to join us). Being a regular on that service has 
led to some telecomputer friendships with therapists in 
Texas, Pennsylvania, and lesser-known places. It has 
enabled me to make contact with some folks who are 
interested in becoming licensed users of the assessment 
programs I’ve written. Since I also own a Color 
Computer (64K, one disk drive), I also check in at the 
COLORSIG (Go PCS-126) for the latest rumors, 
software complaints and plaudits, and to announce 
upcoming meetings of the SeaTac CoCo Club that meets 
once a month at my office. 

About This Program 

The STRESS SCAN-5 program (see listing at the end 
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of this article) combines several smaller instruments 
and presents a standardized stressor. After quietly 
posing questions and receiving responses for several 
minutes, the computer signals the printer to suddenly 
burst forth with its siren song of dots sprayed left and 
right down the page. The somewhat startled person is 
then connected to two bio-feedback instruments: an 
electromyograph (EMG) and a skin temperature 
thermometer. The baseline readings of these two 
measures of stress are entered on the report, a five- 
minute relaxation period is completed, and then new 
readings are taken and recorded. The finished report is 
discussed and given to the client for his or her future 
reference. 

I realize that very few of you will have access to the 
bio-feedback instruments, but I have left those parts of 
the program in this listing so that you can see how they 
would be used. If you would like a rough measure of your 
skin temperature, buy a small glass tube room 
thermometer (I’ve seen some on magnetized material for 
under a dollar) and simply rest your fingertip on the bulb 
of the thermometer for several minutes. 

STRESS SCAN-5 is written in BASIC for the Radio 
Shack Model III. It must be user-friendly, because I 
simply turn on the printer and computer, insert the disk, 
press reset, and it auto-runs with an instruction page for 
the user. The program as written uses printer control 
codes that may be unique to the C. Itoh Prowriter, but 
these can be removed (or changed) if your printer uses 
different codes for underscore, font changes, and the 
like. Line 1140 decodes the printer codes used. 

Similarly, if you wish to convert this program to 
another computer, you will need to delete all POKE 
1691 6’s which scroll protect the top of the screen and 
reformat any strings (questions or items) that are too 
long for the screen width you are using. 

One programming point worth mentioning is that the 
Events, Physiological, and Symptoms Inventories each 
use different algorithms to pose questions and tabulate 
answers. The first reads DATA statements, the second 
uses INPUT statements with the question imbedded as 
a prompt and the third uses PRINT statements and 
subroutines with unprompted INPUT statements. 
Whenever speed of execution or memory size issues are 
not important, BASIC usually allows several ways of 
accomplishing a given task. 

STRESS SCAN-5 is the second computer program in a 
series called “Understanding People.” The first 
program, The Love Test, was published in the July 1983 
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issue of Basic Computing. To be notified of each 
program as it becomes available, write to the author at 
Counseling and Preventive Services (CAPS), Oakhurst 
— Suite 121, 1851 S. Central Place, Kent, WA 98031. 
CAPS provides marriage, family and child counseling; 
preventive seminars; management consulting; and 
computer usage instruction. (Dr. Nugent is a Clinical 
Member of the American Association for Marriage and 
Family Therapy and an Assistant Professor of Human 
Behavior for Newport University. —Ed) 

Program Listing for STRESS SCAN-5 

10 CLSsCLEAR 1000:GOTO90 
' — STRSSCAN PGM LISTING 
20 ET=ETf(R*B): RETURN 

30 INPUTR: IFR=2THEN40 ELSE COMB=COMB+R 
:CLS: RETURN 
40 C2=C2+1 : CLS : RETURN 

50 INPUTR: IFR=2THEN60 ELSE PSY=PSY+R:C 
LS: RETURN 

60 P2=P2+1: CLS: RETURN 

70 INPUTR: IFR=2THEN80 ELSE SM=SM+R:CLS 
: RETURN 

80 S2=S2+1: CLS: RETURN 
90 PRINT n WELCOMEi " : PRINT 
100 PRINT"The first part of your STRESS 
SCAN-5 will be administered by this c 
omputer . Your answers will generate a w 
ritten report which will be given to 
you when you leave. ALL ANSWERS ARE 
CONFIDENTIAL . " : PRINT 

110 PRINT"The computer-administered port 
ion has three parts: an EVENTS invent 
ory, a PHYSIOLOGICAL inventory, and a SY 
MPTOMS inventory.": PRINT 
120 PRINT" Instructions for each section 
will appear when you need them." 

130 PRINT: PRINT" PRESS THE SPACEBAR WHEN 
YOU HAVE FINISHED READING THIS PAGE." 

140 R$=INKEY$ : IF R$<>" "THEN 140 
150 CLS:R=0:ET=12:PT=0:PSY=0:SM=0:CO1B=0 
:P2=0:S2=0:C2=0 ' — EVENTS INVENTOR 

Y 

160 PRINT" *** EVENTS INVENTORY ***" 
170 PRINT : PRINT" Enter the number of time 
s IN THE LAST YEAR that each event has 
occurred in your life. Press <ENTER> af 
ter you have checked to see that the num 
ber on the screen is correct. Use the < 
LEFT ARRCW> key to erase if you need 
to." 

180 PRINT: POKE 16916,7 'SCROLL PR 

OTECT 

190 P0RI=lTO41 
200 READ A$,B 

210 IF B=21 THEN OE=ET 

220 IF B=15 THEN WE=ET-OE 

230 CLS :PRINTA$: INPUTR 




"Take two aspirins and dial the General Hospital data 
processing system in the morning!" 



240 GOSUB20 
250 FE=ET-WE-OE 
260 NEXTI 

270 POKE 16916,0: CLS 
PHYSIO INVENTORY (CATS-SF) 

280 PRINT" *** PHYSIOLOGICAL INVENTORY 
***": PRINT 

290 PRINT"Again, enter the numbers reque 
sted and press <ENTER> when you are su 
re the number on the screen is correct. 

Erase with the <LEFT ARROW> key if yo 
u need to.": PRINT 
300 POKE 16916,6 

310 INPUT"HOW MANY CUPS OF COFFEE OR TEA 
DO YOU DRINK IN A DAY";R:PT=R 
320 CLS : INPUT" HOW MANY CANS OR BOTTLES O 
F COLA DRINKS DO YOU DRINK IN A DAY";R:P 
T=PT+R 

330 CLS : INPUT" HOW MANY CANS OR BOTTLES O 
F BEER DO YOU DRINK IN A WEEK" ; R: PT=PT+R 
340 CLS : INPUT"HOW MANY MIXED DRINKS DO Y 
OU DRINK IN A WEEK";R:PT=PT+R 
350 CLS : INPUT" HOW MANY CIGARETTES DO YOU 
SMOKE IN A DAY";R:PT=PT+R 
360 CLS : INPUT"HOW MANY MEALS ARE EATEN A 
T RESTAURANTS EACH WEEK";R:PT=PT+R 
370 CLS : INPUT" HOW MANY MEALS EACH WEEK I 
NCLUDE CANNED FOODS" ;R:PT=PT+R 
380 CLS : INPUT" HOW MANY TIMES EACH WEEK D 
O YOU EAT A DESSERT OR CANDY BAR"?R:PT=P 
T+R 

390 CLS : INPUT"HOW MANY TIMES EACH WEEK D 
O YOU PUT SUGAR ON CEREAL" ; R: PT=PT+R 
400 CLS : INPUT"HOW MANY MEALS EACH WEEK I 
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NCLUDE FRIED POODS" ;R:PT=PT+R 

410 POKE16916,0:CLS SYMPT 

OMS INVENTORY 

420 PRINT" *** SYMPTOMS INVENTORY *** 
PRINT 

430 PRINT"This time, enter a <0> if you 
NEVER have this symptom, 

a <1> if you SOMETIMES do, an 
d a <2> 

if you FREQUENTLY have it.": PRINT 
440 POKE 16916,7 
450 CLS 

460 PRINT" ANXIETY IN SPECIFIC SITUATIONS 
(TESTS, DEADLINES, INTERVIEWS, ETC.)" 
:GOSUB30 

470 PRINT" ANXIEIY IN YOUR PERSONAL RELAT 
IQNSHIPS" :GOSUB30 

480 PRINT" ANXIETY OF A GENERAL NATURE (N 

O SPECIFIC CAUSE) ":GOSUB30 

490 PRINT" DEPRESSION, HOPELESSNESS, OR P 

OWERLESSNESS" :GOSUB50 

500 PRINT" POOR SELF-ESTEEM" :GOSUB50 

510 PRINT"IRRITABILITY, ANGER, OR RESENT 

MENT" :GOSUB50 

520 PRINT" SPECIFIC PHOBIAS (FEARS OF ELE 
VATORS, THE DARK, STRANGERS, SPEAKI 



NG IN PUBLIC, ETC.)":GOSUB30 
530 PRINT" DISTURBING THOUGHTS THAT WON'T 
GO AWAY" : GOSUB50 

540 PRINT"MUSCULAR TENSION" :GOSUB70 
550 PRINT "HIGH BLOOD PRESSURE" :GOSUB30 

560 PRINT"HEADACHES, NECKACHES, OR BACKA 
CHES" :GOSUB70 

570 PRINT" INDIGESTION, IRRITABLE BOWEL, 
ULCERS, CHRONIC CONSTIPATION, OR RECTAL 
HEMORRHOIDS" : GOSUB70 

580 PRINT"MUSCLE SPASMS, TICS, OR TREMOR 
S" :GOSUB70 

590 PRINT" FATIGUED OR TIRED" : GOSUB30 

600 PRINT" INSOMNIA, SLEEPING DIFFICULTIE 

S":GOSUB30 

610 POKE 16916, 0:CLS 

620 PRINT"THANK YOU." : PRINT: PRINT" PLEASE 
LET THE PERSON IN CHARGE KNOW THAT YOU 
HAVE FINISHED (leave the computer on 
so the report can be generated) ." 

630 PRINT :PRINT"NCW PRINTING ..." 
REPORT PRINTING 

640 LPRINTCHR$ ( 27 ) ;CHR$ (78) ;CHR$ (14) ; 

650 LPRINT" > STRESS SCAN-5 < 

" ;CHR$ (15) 
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(Located 30 miles from Fort Worth) 

377 Plaza • GRANBURY • NR FORT WORTH, TEXAS 76048 

TOLL FREE NUMBER: 1-800-433-S-A-V-E 

Monday thru Friday — 9:00 a.m. to 5:00 p.m. Texas Time 
(Order Inquiries/Customer Service &) IN TEXAS: 817-573-4111 
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660 LPRINT : LPRINT : LPRINTTAB( 30 ) TIME$:LP 
RINT 

670 LPRINT" STRESS SCAN-5 includes thre 
e inventories which are computer-adminis 
tered, a frontalis electrorryogram, a 
nd a cutaneous teinperature analysis.":LP 
RINT 

680 LPRINTCHR$ ( 27 ) ;CHR$ (88) ;"1 . HOLMES- 
RAHE EVENTS INVENTORY" : LPRINT 
690 LPRINTCHR? (27); CHR$ ( 89 ) ; " Research 
at the University of Washington has foun 
d that forty-two corrmonly experienced 
events (ranging frcm a minor violation 
of the law - 11 points - to death of a 
spouse - 100 points) contribute 
700 LPRINT" to an individual's level of s 
tress . " 

710 LPRINT" As you may have noticed, ma 
ny stressful events cannot be avoided an 
d quite a few are pleasureable (vacatio 
ns, for instance). The way for you to c 
ontrol yourtotal exposure is to schedule 
those which may be 

720 LPRINT" under your control for times 
when 'natural* events are not occuring 

II 



730 LPRINT" Statistically, people with 
scores over 150 have a 50-50 chance of d 
eveloping or aggravating a stress-relat 
ed illness, and those with scores over 3 
00 have a 90 percent chance of negative 
health consequences." 

740 LPRINT" Your Total Score on the Eve 
nts Inventory was"+STR$(ET)+" . Of that 
total: ":LPRINTTAB(10)STR$(FE)+" were rel 
ated to marriage and the family, and":LP 
RINTTAB(10)STR$(WE)+" were related to yo 
ur work." 

750 LPRINT :LPRINTCHR$ (27 ) ;CHR$ (88) ;"2. 
PHYSIOLOGICAL STRESSORS INVENTORY" :LPRIN 
TCHR$ (27 ) ;CHR$ (89) 

760 LPRINT" An easy way to remember the 
primary physiological stressors is with 
the phrase 'CATS from San Francisco.' C 
ATS/SF reminds us about Caffeine, Alcoho 
1, Tobacco, Salt, Sugar, and Fats." 

770 LPRINT" The lower your score, the b 
etter, since each of these substances in 
creases thechances of stress-related ill 
ness. Scores under 10 show an appropriat 
e awarenessof the problem and a commitme 
nt to a healthy lifestyle." 



GENEALOGY and the TRS- 80 ’s 



America’s most popular personal computers have become significant genealogical tools. 

By combining the use of a Radio Shack 0 computer and one of the following program systems, you can store information on family members 
and then print that information out in several formats without having to retype it. You can update each person’s information at any time with the 
most recent facts. The system can audit the data to find erroneous and incomplete stored data. You can direct the system to print name in- 
dices automatically. You can also print both pedigree and descendant charts starting with any person. This can all be done without any special 
computer knowledge. There are also many more features to the following two systems. 



“GENSYSTEMS” 



specialty: automatically adds and 
prints narratives and family tables 
storage/diskette: 335 to 705 persons 
computer system required: 

TRS-80® Model I , III , or 4 with: 
48,000 characters of memory, 

2 disk drives, and 

an 80 or more column printer 



program system: 



$128.45 



descriptive booklet: 



$2.00 



“GENEALOGY - COMPILING 
ROOTS AND BRANCHIES” 



specialty: prints and maintains 
a complete book of information 
storage/diskette: 1000 persons 
computer system required: 
TRS-80® Model II, 12, or 16 with: 
64,000 characters of memory, 

1 disk drive, and 

an 80 or more column printer 



program system: 



$250.00 



descriptive booklet: 



$2.00 



5009 Utah Street 



please address inquiries and orders as follows: 
ARMSTRONG GENEALOGICAL SYSTEMS 
c/o John J. Armstrong R.Ph. 
Greenville, Hunt County, Texas 75401 



(214) 454-8209 



TRS-80® and Radio Shack® are registered trademarks of the Tandy Corporation 



Refer to advertiser index for reader service number 



November, 1983 19 




Shrink 



780 LPRINT" Your score on this inventor 
y was"+STR$ (PT)+" . " 

790 LPRINT :LPRINTGHR$ (27) ;CHR$(88) ;"3 . 
ELECTROMYOGRAM (EMG) LPRINT CHR$(27)?CH 
R$(89) 

800 LPRINT" EMG sensors were placed on 
your forehead in order to measure tensio 
n in the muscles of the face, jaw, sea 
Ip, and neck. A baseline reading was t 
aken and, after about five minutes of r 
elaxing, a second reading was taken." 

810 LPRINT" Researchers consider values 
above 5 microvolts to be extremely tens 
e and values under 1 microvolt to b 

e quite relaxed.": LPRINT" Your baseline 
was ";CHR$ (27) ;CHR$ (88) ;" ";CHR$(27 

) ;CHR$(89) ; " 

820 LPRINT" Later, the EMG registered " 
;CHR$(27 ) ;CHR$(88) " ? CHR$ ( 27 ) ; CHR$ 
(89);"." 

830 LPRINT :LPRINTCHR$ (27) ;CHR$ (88) ; "4. 
CUTANEOUS TEMPERATURE ANALYSIS" :LPRINTCH 
R$(27) ;CHR$ (89) 

840 LPRINT" Tiny muscles surrounding ea 
ch blood vessel can squeeze so tightly t 
hat blood flow to the fingers and toes 
is greatly diminished. The resulting co 




\ 

EPSON FX-80 Printer- 
All new model; fastest dot 
printer; 160 characters per 
second. Prints user-de- 
fined characters. Features 
elite pitch, proportional 
spacing hex diagnostic 
and new bit image 
modes, reverse paper 
feed. Compatible with 
Epson QX-10, HX-20, and 
most personal and desk- 
top computers. . . . $Price 



Maclnker— Automatic ribbon re-inker for any printer. Re- 
inks any type of ribbon except carbon for less than 5 cents; 
lubricant for safe dot matrix printhead operation . . $ 54.95 
HAYSTACK MODEM — Modems for telecomputing; pro- 
tects sensitive information sent over telephone lines; transfers 
files between various micros, minis or mainframes; 
automatically logs-on to networks, answers phone, saves 

data $ 239.00 

MICROTERM — Smart terminal software; enables you to do 
more In less time, in both ASCII and the new "error free” direct 

file mode; unique Macro-key function $ 79.95 

AVERY LABELS — Address roll labels mini-fold; one up; 
15/16'' x 5-1/2", 1000 per box $ 6.95 



All orders must be cash, UPS, C.O.D., Visa, MasterCharge, or American 
Express. Personal checks take 3 weeks to clear. 



MinMJne " is a trademark 
oT A very International 



MIDWEST 



CQMF'U'TffiU 

INCORPORATED 

451 Sagamore Pky.»W Lafayette, IN 4 7906* (31 7) 463-3433 



ldness sig-nals the presence of stress a 
t a level not usually under conscious co 
ntrol . " 

850 LPRINT" As a measure of stress, fin 
ger tip temperature is considered ’norma 
1’ in the 85 to 90 degree (F) range, w 
ith greater stress below 85 and greater 
relaxation above 90." 

860 LPRINT" Your baseline finger tip te 

mperature was " ; CHR$ ( 27 ) ; CHR$ ( 88 ) ; " 

" ; CHR$ ( 27 ) ; CHR$ ( 89 ) ; " . " 

870 LPRINT" After a few moments of rela 

xation, your temperature was "CHR$(27);C 

HR$(88) ;" ";CHR$ (27) ;CHR$ (89) ; " . " 

880 LPRINT:LPRINTTAB(45)" (continued on p 

age two)":P0R Y=1T012:LPRINT:NEXTY:LPRIN 

TTAB( 50 ) "Page Two": LPRINT 

890 LPRINTCHR$ ( 27 ) ;CHR$ (88) ;"5. SYMPTOM 

S OF STRESS" :LPRINTCHR$( 27 );CHR$( 89 ):LPR 

INT" The symptoms listed by the compute 

r can be divided into three categories: 

those that respond best to relaxatio 

n training (such as biofeedback), those 

». 

/ 

900 LPRINT"thatrespond best to counselin 
g, and those that respond best to a comb 
ination of the two. Any physical synpto 
ms should be assessed by your physician, 
of course, to rule out the possibility 
of disease or injury." 

910 LPRINT" Of the symptoms you reporte 
d : " : LPRINTTAB( 9 ) STR$ ( SMtS2 ) +" respond be 
st to relaxation training, ":LPRINTTAB( 9) 
STR$ (PSY+P2)+" respond best to counselin 
g, and" : LPRINTTAB( 9 ) STR$ (COMEH-C2 )+" may 
require both types of intervention." 

920 LPRINT STR$ ( S2+P2+C2 ) +" were of suff 
icient intensity to warrant prompt atten 
tion.": LPRINT 
930 LPRINTSTRING? ( 80, " . " ) 

940 LPRINT: LPRINT" As is implied in the 
title, STRESS SCAN-5 rapidly surveys se 
veral measures of stress. It is not a d 
efinitive assessment or diagnostic tool. 

II 

950 LPRINT" It does serve an educationa 

I purpose, howevrer, in that you have be 
cane more knowledgeable about stress, i 
ts sources, and its consequences. We wi 

II be available to work with you on 

any of the issues raised." 

960 LPRINT : LPRINT : LPRINT : LPRINTTAB ( 30) "M 
ICHAEL D. NUGENT, PH.D., DIRECTOR" 

970 LPRINTTAB( 30) "COUNSELING AND PREVENT 

HE SERVICES” 

980 LPRINTTAB( 30 ) "OAKHURST - SUITE 121" 
990 LPRINTTAB (30) "1851 S. CENTRAL PLACE" 
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1000 LPRINTTAB(30) "KENT, WA 98031" 

1010 LPRINTTAB( 30 ) " ( 206 ) 854-7072" 

1020 FOR C1=1T09 : LPRINT : NEXT 
1030 LPRINT" Copyright 1981 by Michael D. 
Nugent, Ph.D." 

1040 FOR C1=1T02 3 : LPRINT : NEXTC1 
1050 CLS: PRINT" PRESS THE SPACEBAR TO ADM 
INISTER ANOTHER STRESS SCAN-5 0 

R ANY OTHER KEY TO EXIT TO BASIC." 

1060 R$=INKEY$ : IF R$=""THEN 1060 
1070 IF R$=" "THEN RUN 10 ELSE END 
1080 DATA MINOR VIOLATIONS OF THE LAW, 1 
1, VACATIONS LONGER THAN TWO DAYS, 13, A 
CHANGE IN EATING HABITS, 14, A CHANGE I 
N SLEEPING HABITS, 16, A MORTGAGE OR LOA 
N OF LESS THAN $10000, 17, A CHANGE IN S 
OCIAL ACTIVITIES, 18 

1090 DATA A CHANGE IN CHURCH ACTIVITIES, 
18, A CHANGE IN RECREATION, 19, A CHANG 
E IN SCHOOLS, 20, A CHANGE IN RESIDENCE, 
20, A CHANGE IN PERSONAL HABITS, 24, A 
CHANGE IN LIVING CONDITIONS, 25, BEGINNI 
NG OR ENDING SCHOOL, 26 
1100 DATA AN OUTSTANDING PERSONAL ACHIEV 
EMENT, 28, FORECLOSURE OF MORTGAGE OR LO 
AN, 30, TAKING ON A NEW MOKIGAGE OF OVER 



$10000, 31, DEATH OF A CLOSE FRIEND, 37 
, A CHANGE IN FINANCIAL STATUS, 38, A PE 
RSONAL INJURY OR ILLNESS, 53 
1110 DATA A JAIL TERM, 63, A CHANGE IN W 
ORK HOURS OR CONDITIONS, 21, TROUBLE WIT 
H YOUR BOSS, 23, A CHANGE IN RESPONSIBIL 
ITIES AT WORK, 29, A CHANGE TO A DIFFERE 
NT LINE OF WORK, 36, A BUSINESS SETBACK, 
39, RETIREMENT, 45, FIRED AT WORK, 47 
1120 DATA A CHANGE IN THE NUMBER OF FAMI 
LY GET-TOGETHERS, 15, SPOUSE BEGINS OR S 
TOPS WORK, 26, TROUBLE WITH IN-LAWS, 29, 
SON OR DAUGHTER LEAVING HOME, 29, A CHA 
NGE IN NUMBER OF ARGUMENTS WITH SPOUSE, 
35, ADDITION OF A NEW FAMILY MEMBER, 39 
1130 DATA SEXUAL DIFFICULTIES, 39, PREGN 
ANCY, 40, A CHANGE IN THE HEALTH OF A FA 
MILY MEMBER, 44, MARITAL RECONCILIATION, 
45, DEATH OF A CLOSE FAMILY MEMBER, 63, 
MARITAL SEPARATION, 65, DIVORCE, 73, DE 
ATH OF SPOUSE, 100 

1140 ’ON THE PROWRITER, CHR$(27);CHR$(78 
) ; starts the 10-pitch font . CHR$ ( 14 ) ; 
starts double-width, and CHR$(15) ; ends 
it. CHR$ (27) ;CHR$(88) ? starts under s 
core, and CHR$(27) ;CHR$(89) ends it. 







C -Compiler for LDOS 5.1 

Integer subset with float via functions 
Standard I/O redirection 
Unix-compatable standard library 
Sequential files with read, write, append 
Extensive installation library 
Generates Z-80 source as output 
Dynamic memory management 
Includes EDAS 4.1 macroassembler 
Over 250 page reference manual 
S150+S5 S&H (requires 2 -drive. 48K 



MISOSYS 

RO. BOX 4848 
ALEXANDRIA, VA. 22303 
703-960-2998 
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TRSDOS 6.0 



A review of the Model 4 operating system 



Model 4 



The TRS-80 Model 4 microcom- 
puter is being touted as the computer 
for Model I owners who didn’t 
switch to a Model III. I kept hearing, 
“You’ll be glad you waited!” from 
those who had gotten an early look 
at the 4. Well, I finally decided to 
make the jump from my five-year- 
old Model I to the new, improved 
Model 4. 

Am I glad? Overall, I am very 
happy but, like any new product, the 
unit is not without its problems. The 
unit that I own has a keybounce 
problem. This evaluation is not 
about the machine, but about the 
new disk operating system and 
BASIC language that Tandy 
supplies with the Model 4. The DOS 
is officially called TRSDOS 6.0, but 
unofficially it is being called LDOS 
6.0 because it was written by Logical 
Systems, Inc. and it bears a striking 
resemblance to earlier versions of 
LDOS. 

New DOS Features 

The DOS takes advantage of all 
Model 4 expanded hardware 
features like an 80 x 24 screen 
format, audible keyclick, inverse 
video, sound output, control and 
function key recognition and 4 Mhz 
clock speed. In spite of the higher 
clock speed, the DOS seems slower 
on most functions. The directory 
takes about six seconds to appear, 
compared to three seconds for an 

LDOS 5.1 disk. 
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The REMOVE (kill) command 
seems to take forever to eliminate a 
file. The directory command is like 
LDOS in that, if you do not specify a 
drive number, all four device 
directories are displayed even if only 
one drive is active. The inactive 
devices are tagged with DRIVE :X 
(no disk). The display will stop 
scrolling when the amount of 
information in the directory exceeds 
the screen capacity (until the enter 
key is hit). 

The display is quite attractive 
(with its 80 x 24 format) and it makes 
the Model 4 look more like its big 
brothers. Some may fault the 
smaller characters, but I consider 
them quite crisp and readable. The 
display seems to be considerably 
dimmer when in the 80 x 24 mode, 
perhaps to prevent the familiar 
screen image burn-in so common on 
the Model III. 

Unique DOS Commands 

Some of the unique commands of 
TRSDOS 6.0 are CLICK, which 
enables the keyclick filter so that 
each keystroke produces an audible 
click; COMM, a full-featured RS- 
232C communications program; 
MEMDISK, which adds a pseudo 
floppy disk drive in memory; 
SETKI, sets the keyboard repeat 
values; REMOVE, same as KILL in 
other DOS’s; SYSGEN, which 
creates a configuration file that 
stores default parameters; and 



Jim Klaproth, Associate editor 



TAPE100, a utility that allows the 
Model 4 to read or create Model 100 
tape files. 

Missing DOS Commands 

Missing from TRSDOS 6.0 are all 
of the tape I/O commands (other 
than TAPE 100), making the DOS 
strictly disk-oriented. Other 
omissions include an online HELP 
command, a CLS command (the 
screen can be cleared with the shift- 
clear keys), and all system 
diagnostics, such as MEMTEST. 
Most other functions of TRSDOS 1.3 
and LDOS 5.1.3 have equivalents in 
TRSDOS 6.0. 

Commands Common to LDOS 

The next group of commands are 
those which are common to LDOS 
5.1.3. 

CONV converts Model III 
TRSDOS diskettes to be readable by 
TRSDOS 6.0. (Keep in mind that 
application programs written under 
TRSDOS 1.3 will not run under 
TRSDOS 6.0 without extensive 
modification due to the structure of 
the new BASIC.) 

DEVICE displays the current 
status of all I/O devices in the 
system. 

DO compiles and executes a DO 
file of library commands without 
operator intervention. 

FILTER filters or modifies data as 
it is read from or written to a device. 
(Example: CLICK/FLT modifies 
the keyboard to produce an audible 
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click.) 

JCL (job control language) 
enables the user to construct a 
sequence of commands and 
statements to control the operating 
system or applications program. 

JOBLOG creates a log of all 
commands entered or received along 
with a time stamp of each. 

KSM/FLT is a keyboard filter 
that allows the use of files 
containing phrases to be used by 
hitting certain keys. 

LINK connects two logical devices 
together. (Example: send all video 
output also to printer.) 

MEMORY is used to reserve a 
portion of user memory and display 
the current high and low limits. 

REPAIR converts Model I disks to 
make them readable to TRSDOS 6.0. 

SET and RESET commands set or 
reset a driver of filter program to a 
device. 

ROUTE routes one device to 
another device, to a disk file, or to 
nothing (NIL). 

SPOOL establishes a buffer for a 
specified device (usually a 
lineprinter) so that the device does 
not tie up the main processor at a 
critical time. 

SYSTEM configures the disk 
drives and various system options to 
your needs. 

Documentation 

The documentation consists of a 
disk owner's manual in a standard 
brown Tandy binder, a quick 
reference guide, a little booklet on 
the Model 4 disk system, and a 
single copy of TRSDOS 6.0. The 
manual is divided into three 
sections. The TRSDOS section, 
containing 160 pages, is supple- 
mented by 129 pages in the 
appendices, some of which is 
devoted to hardware and the new 
Microsoft BASIC. 

Compared to the LDOS manual, it 
is light and lacks some of the in- 
depth information that program- 
mers and advanced hackers relish. 
This information is available in the 
Model 4 Technical Reference 
Manual (cat. no. 26-2110), which is 
not available as of this writing. 

I found that most of the 
commands were well documented, 
but some of the advanced 
commands required skipping 
around to various sections in the 
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When your computer won’t 
speak your language, 
you need a basic handbook. 




everyone who works in BASIC needs The 
BASIC Handbook. It is the definitive reference 
work on the subject of BASIC. 

The BASIC Handbook is an easy-to- 
use encyclopedia of nearly 500 words 
covering the "dialects" used by virtu- 
ally every BASIC-speaking computer 
in the world. But more than that, it's a 
simple, step-by-step guide to translat- 
ing programs from one computer 
to another. So now you can actu- 
ally use software printed in 
magazines and elsewhere, no 
matter what computer you own. 



The 
BASIC 
Handbook 

book you can buy. 

Extensively indexed and cross-referenced, The BASIC Hand- 
book gives you 480 pages packed with the information you need to 
be a better programmer. And if, after 30 days you don’t agree it's 
indispensable, send it back. We'll return your money. 



Written by Dr. David A. Lien, author 

of the Tandy TRS-80 Level I User’s Manual and 
the Learner’s Manuals for the Epson 
AAX printers, this completely revised 
Second Edition contains almost twice 
as many entries as the best selling 
First Edition, making it 
by far the most up-to 
date BASIC reference 




The BASIC Handbook is available in several 
languages and accepted throughout the 
world. No one who programs in BASIC 
should be without it. 

Available at better computer and 
book stores, v _ _ . . _ ^ _ 

or caii ( 800 ) 854-6505 

In California (61 9 ) 588“0996 

To order by mail, send check or 
money order for $19.95 (California 
residents add 6%), plus $1.65 
shipping and handling. 
Overseas orders send 
$19.95 plus $2.38 surface 
shipping and handling. 



CompuSoft 

Publishing 



535 Broadway, Dept. 130983, El Cajon, CA 92021 
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manual to retrieve necessary in- 
formation. The SOUND command 
was totally undocumented, as were 
three of the logical operators (XOR, 
IMP, and EQV) and the integer 
division and modulus arithmetic 
that Model 4 BASIC supports. The 
third section covers the new BASIC 
that is included on the disk. 

Microsoft BASIC 01.00.00 

This BASIC is totally new and is 
nearly identical in syntax to 
Microsoft’s BASIC-80. Perhaps this 
will mean that we will see a Model 4 
BASIC Compiler that finally will be 
compatible with the interpreter 
BASIC. This language is totally 
RAM-resident (there is no BASIC in 
ROM as in the Models I and III) and 
it takes much longer to load. Once 
loaded, new users may be surprised 
to find that only 29. 4K of memory is 
available for user programs. This 
limitation can be overcome by the 
fact that you may chain other 
programs or use overlays to extend 
the overall size of your program. 

Programs can be loaded from 
Model III TRSDOS 1.3 disks or 
Model I TRSDOS disks, but they 
must be in ASCII format. Do not 
expect these programs to run 
unaltered unless they are totally 
uncompressed. This is because 
Basic 1.000 interprets any character 
string up to 40 characters as a 
variable name. The compressed 
statement, ‘ ‘ FORM = 1 TO 100”, 
would be interpreted as “FORM = 




1TO100”, and would generate a 
syntax error. 



Major Differences 

The major differences between the 
new BASIC and the old are: 

— No ROM calls are allowed. 

— No tape I/O is allowed. 

—Only 249 characters per line 
versus 255. 

—40 significant characters per 
variable name verses 2. 

— When converting single- or 
double-precision numbers to 
integers, the new BASIC rounds the 
number, the old one truncates it. 

—20 spaces between print zones 
versus 16. 

— All port addresses are different. 

— The following BASIC keywords 
are not supported: CSAVE, CLOAD, 
POINT, CLOCK, CMD, POSN, 
RENAME, and VERIFY. 

—All keywords must be delimited 
by spaces. 

—Many error messages and 
internal codes are different. 

— String space is allocated 
dynamically versus using a CLEAR 
statement. 

— New rules for printing single- 
and double-precision numbers. 

—Division by zero does not 
produce a fatal error, but prints an 
error message and keeps on 
trucking. 

— FOR . . . NEXT loops are 
handled differently and are skipped 
under some conditions. 

—Stack space must be allocated in 
a program if nested subroutines are 
used. 

— The keyword THEN is required 
in IF . . . THEN statements. 

—The statements PRINT@ and 
PRINT TAB have different rules 
and PRINT@ now supports row and 
column addressing. 



New BASIC Keywords 

The new keywords supported are: 

CALL transfers program control 
to a machine language subroutine. 

COMMON reserves space for 
variables so they can be passed to a 
CHAINed program. 

CHAIN loads a BASIC program 
and chains it to a main program, 
allowing any or all of the variables 
to be passed. 

ERR$ returns the last system 



error num 



ler and 



message. 



ERASE erases one or more arrays. 



HEX$ returns the hex value of a 
number as a string. 

OCT$ returns the octal value of a 
number as a string. 

OPTION BASE sets the minimum 
value for an array subscript to zero 
or one. 

RENUM replaces the keyword 
NAME and renumbers program line 
numbers. 

ROW returns the row position of 
the cursor. 

SOUND sounds the internal tone 
generator. 

SPACE$ returns a string of 
specified spaces. 

SPC prints a line of spaces. 

SWAP exchanges the values of 
two variables. 

WAIT suspends program 
execution until a specified port 
develops a specified bit pattern. 

WHILE . . . WEND executes a 
series of statements as long as a 
given condition is true. 

WRITE writes data on the display. 

WRITE# writes data to a 
sequential-access file. 

The commands that have similar 
names but different functions are: 

NAME which now renames a 
filespec. 

SYSTEM returns to TRSDOS or 
executes a TRSDOS command. 

CLEAR is similar, but now 
reserves stack space instead of 
string space. 

The SAVE command now 
includes an option for saving in an 
encoded binary format that cannot 
be listed or edited after the save. 



Missing Features 
Gone are all of the Model III 
CMD“X” functions. However, there 
is a SYSTEM command that allows 
any DOS command to be used. There 
is no sort function, space 
compression (this is unnecessary as 
space compression is not allowed), 
date format conversion, printer 
status check, BASIC cross-reference 
utility, nor any other CMD functions 
in BASIC. There is no BASIC * 
(restart BASIC with program 
intact). There are no abbreviated 
editor commands (except which 
means “current line”) as in some of 
the after-market DOS’s. You must 
type “LIST 100” or “EDIT 250” 
(even the space must be there) to list 



IP 



or edit. Programmers wi 

line move routines. 



so miss 
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My overall impression of 
TRSDOS 6.0 is that it misses the 
mark, even though it has some very 
impressive features. On the plus 
side, it is fairly user-friendly and 
somewhat forgiving of command 
syntax. A lot of option specs can be 
abbreviated and blank space 
placement is not as critical as in 
other DOS’s. 

The MEMDISK option appears to 
be useful only when the extra 64K 
RAM is installed because BASIC 
shares the same area as Bank 0 (the 
top half of user memory in a 64K 
machine). The manual recommends 
not using BASIC when MEMDISK 
is resident in Bank 0. The extra 64K 
option gives MEMDISK two 
additional 32K banks that do not 
conflict with BASIC. MEMDISK 
could have some interesting 
applications in future software 
releases when used with the full 
128K machine. 

Job Control Language gives 
TRSDOS 6.0 powerful capabilities 
that are found on minicomputer 
systems. On the minus side, it 
appears to be a little slower than 
other DOS systems, and at times the 
system appears to hang when doing 
disk I/O, even on a simple command 
like LIB. 

The format operation appears to 
be quite uneven and inconsistent. 
TRSDOS 6.0 may not gain wide 
acceptance from the non-Tandy 
professional programmers due to 
the incompatibility of the new 
BASIC with other systems and the 
lack of any programmer’s tools. It 
would mean learning a new DOS 
and several differences in the 
BASIC syntax and file structuring. 
Do not expect to see present Model 
III software converted to TRSDOS 
6.0 for some time. Only time will tell 
what the future holds for this new 
DOS. 

The new BASIC leaves me with 
mixed emotions. It is a greatly- 
expanded version with many new, 
powerful functions. The memory 
overhead leaves me cold, especially 
considering that programs cannot 
be compressed. Chaining is one 
alternative, but it slows down 
execution greatly. Perhaps Tandy 
and Microsoft will do something 
right and release a compiler that will 
be 100% compatible with Model 4 
BASIC. Keep hoping. 
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2,000 new programs for your 
TRS-80® 12. 

CP/M is the runaway 
leader in disk operating 
systems, but until now owners 
of Radio Shack computers 
have been locked out of the 
thousands of useful programs 
that operate on CP/M. 

Now you can put the power 
of CP/M into your Radio 
Shack TRS-80 II, 12, or 16, 
and be able to use all the 
popular and useful software — 
and hardware— that has been 
previously out of your reach. 

Use any printer. 

Instead of being chained to 
Radio Shack hardware, you'll 
be able to add a video terminal, 
any printer (serial or parallel) 
and several Winchester 
hard disk drives with storage 
up to 80 megabytes. 

Yes! Send me free information 



Uses only 8.5K of memory. 

Since our first version 
went on the market in 1980, 
we’ve condensed and refined it 
into a compact, easy-to-use 
system enjoyed by thousands 
of users. 

Besides the standard Digital 
Research CP/M manual, 
you’ll get the 250-page manual 
we've developed through our 
long experience in adapting 
CP/M to Radio Shack com- 
puters. Our manual has lots 
of examples and an index 
and glossary. 

You'll have your first working 
disk in ten minutes. 

Only $200. 

The floppy disk version of 
Pickles & Trout CP/M is 5200. 
The hard disk versions (for 
Tandy, Corvus, and Cameo) are 
5250, except for the multi-user 
Cameo, which is 5400. 



I 

I 

I 

l 



about CP/M for Radio Shack. 

Name 



Address . 

City 

Phone 



State. 



. Zip . 



or send us your business card. 

Pickles & Trout®, P.O. Box 1206, Goleta, 
CA 93116(805)685-4641 




TRS-80 K Radio Shack/Tandy Corporation. CP/M 11 Digital Research. 
Pickles & Trout' 1 Pickles & Trout. ©1983 Pickles & Trout 
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Color sketcher 



Draw, save and load your pictures with ease 



Color Computer 



Glen Tapanila, Tumwater, WA 



ColorSketcher lets you use the keyboard of your Color 
Computer to draw lines, figures, circles, and paint in the 
shapes. If you draw a design you like, you can save it on 
tape and reload it again. You can also use ColorSketcher 
to draw graphics for use in other programs. You need 
Extended Color BASIC and 16K. 

The program starts with a prompt for drawing speed. 
The slowest speed may be rather boring, but is necessary 
for detailed sketching. The fastest speed is for the well- 
coordinated sketcher and for creating freeform shapes 
where fine detail is not essential. 

Lines are drawn with a nine-key pad centered around 
the “S” key. Direction of the line you are drawing is 
determined by the direction of the key from the “S” (see 
Figure 1). “W” is up, “E” is 45 degrees, “D” is to the right, 
“C” is 135 degrees, “X” is down, “Z” is 225 degrees, “A” 
is to the left, and “Q” is 315 degrees. Once a directional 
key is pressed, the line continues to be drawn until 
another key is pressed. The key does not have to remain 
depressed to continue drawing. Pressing the “S” key (or 
any other non-directional key) will stop all drawing. 

The drawings are displayed in one of two color sets. 
The initial set is buff, cyan, magenta and orange. The 
preset background is buff and the line is cyan. The “N” 
key switches color set to green, yellow, blue and red. “M” 
returns you to the original color set. To change line color, 
use keys “1,” “2,” “3,” and “4” which correspond respec- 
tively to the colors in either set. To change drawing 
speed after the initial prompt, use keys “6,” “7,” “8,” “9,” 
and “0” for slowest to fastest speeds. 

Circles are drawn with the “B” key. The last point of 
the drawn line marks the center of the circle. When the 
“B” is pressed, the screen switches to prompts for circle 
radius and height-to-width ratio. After receiving the 
response, the program returns you to the graphics 
screen with the newly-drawn circle. 

Shapes are painted with the “K” key. First, draw a 
shape with a single-colored line. Next, draw the line into 
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Figure 1 — Directional Keys 
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the interior of the shape. Pressing “K” fills the shape 
with the color of the line. 

A shape that is not completely bordered by a drawn 
line causes painting problems. The PAINT command 
sets points on the screen to a designated color until a 
border of a certain color is found. Painting continues to 
set color to points until the entire screen is filled or a 
completely enclosed shape is painted. 

For the ColorSketcher, the current line color is both 
the painting and the border color. Be careful. If the 
parameter of a shape is not completely drawn in with a 
single color, the entire screen may be painted, because 
the painting breaks through the border at any opening. 
Also, if the last dot of the line you are drawing is directly 
on the border of the shape to be painted when the “K” is 
pressed, painting spreads outside as well as inside the 
shape. Move the line inside the shape you want to paint. 
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Dear Customer! 

If you care about TIME, you need Clone, Why did you buy your computer? If you are like us, you need 
your computer to save you time, You follow proper programming procedures and backup everything twice, 
THIS TAKES TIME! If you use more than one disk operating system, IT TAKES TIME, At the end of our 
programming day we have at least 8 disks to backup twice, With the disk backup utilities that came with 
our disk operating systems, formatting and verifying that many disks could take 64 minutes, not to 
mention the amoOnt of time that it took to initialize and answer the opening inquiries for the various disk 
operating systems we use, Now we use the Clone duplication system and the entire process takes less 
than 23 minutes, Clone is so reliable at verifying that we never worry about having a bad duplication. We 
are sure you know that a disk which has not been properly verified might cause problems you would not 
detect for months. Clone is so advanced that passwords, densities or different disk operating systems 
don't affect its efficient operation. Clone is so flexible that we are also able to duplicate Atari 400, 
Atari 800, TRS-80 Color Computer as well as TRS-80 Model I, III, or IV disks. Clone is so sophisticated 
that if it encounters a damaged disk and is unable to read it, you can ask it to keep trying, take it's best 
guess, or give up. Most backup utilities just give up, Clone's error messages will explain exactly what the 
trouble is. Finally, Clone IS FAST! It takes just 1 minute 25 seconds to format, duplicate, and verify a 
disk that used to take us 4 minutes to complete, 

We are sure that everyone who owns a TRS-80 Model I, III, or IV would benefit from owning the 
Clone duplication system, Clone will become an indispensable part of your programing library, Unlike 
copying utilities, Clone will have a lasting usefulness which is not dependent on any other program's 
availability, That is why we at Gibberman Enterprises are proud to offer you Clone I for TRS-80 Model I 
or Clone III for TRS-80 Model III or IV, 





Sfi ££D 



CLONE 




Sincerely 









James Schoengarth 
Marketing Director 
Gibberman Enterprises 



HARDWARE REQUIREMENTS 

CLONE I OR CLONE III 
TRS-80 MODEL III, IV OR 

TRS-80 MODEL I WITH LN DOUBLER OR PERCOM DOUBLER ONLY 

2 DISK DRIVES OR MORE 

32 K RAM OR MORE 



NOTE: A MODEL I WITH SINGLE DENSITY MAY ALSO BE USED, 
HOWEVER YOU WILL ONLY BE ABLE TO COPY STANDARD 
MODEL I SINGLE DENSITY DISKS! 



ORDER INFORMATION 

$ 79.97 

CLONE I for TRS-80 MODEL I 



s 


CLONE III for TRS-80 MODEL III or IV 
For VISA or MASTER CARD Orders 






CALL NOW - TOLL FREE (800) 824-7888 
Ask for operator #797 
Hawaii 6 Alaska (800) 824-7919 
For more information call (213) 367-0887 





Add $3.03 Postage 3 Handling 
California Residents add sales tax 



8 IBBERMAN 
NTERPRISES 



(TRS-80 Color Computer and TRS-80 are trademarks of Tandy Corp. Atari is a 
trademark of Atari Inc. Clone I and Clone III are trademarks of Pegasus Research 
LN Doubler is a trademark of LNW Inc. Percom is a trademark of Percom Data 
Corp. ) 



Clone I and Clone III are available exclusively through Gibberman Enterprises, 
authorized dealer for Pegasus Research. 

Gibberman Enterprises - 13000 San Fernando Rd. - No. 5 - Sylmar, CA 91342 




PcC-AlUl 

RESEARCH 
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Sketcher 





D T- Enterprises Dept. 8 k 0eQle , lnqulfes Welcome 
10D Corlougn Rood Prices subjea 10 chonge 

Bohemio, NY’ 11716 NY 5> Residents odd tox 
0 T Enterprises *s o division of OrTech Enteronses Inc 

Orders Only Amencon Express Corte Olonche 

600-645- 1 1 65 Diners Clut> o viso 



SOFTWARE 

For Your TRS 80 Model I/III/4 

New Interactive Computing Environment 

New Database Facility designed in a user friendly environment, cap- 
able of integrating all your programs, utilities, spread sheets, word 
processing, business applications and games. 



NICE $399.00 

MAS 80 (AR/AP/GL/Ck. Reg) 599.00 

INVENTORY 499.00 

SUPER UTILITY 3.0 79.95 

PASCAL 80 99-95 

CONNECTION 80 (BBS) 199.95 

UNITERM (TERMINAL PROGRAM) 79.95 



• Easy to install with Photo Instruction Manual 

• 40/80 Single/Double Density Support 

• Dual Sided and 8" Drive Support 

• Available with Hardware, Real Time Clock and Battery built in. 

• Software Clock Routine & TDOS Operating System included. 



MODEL III MODEL 4 

(203103) without clock $269.50 $269.50 

(203104) with clock 329.50 329.50 

(2001 11) 40 SH Disk Drives 200.00 ea 200.00 ea 

(213002) 32K Memory 34.95 — 

(204064) 64K Memory — 119.95 

(204065) 64K Memory w/PAL — 144.95 

Complete Kit with Clock Board, 

2 Drives, 64K Memory, TDOS 699.00 799.00 



DISK 

UPGRADE 

KITS 



Put Disk Upgrades 
into your TRS 8Q MODEL 111/4 



N Y coll (516) 567-8155 (516) 588-5836 (modem) 



There is never any problem in painting circles drawn 
with the “B” key (unless you change line color before 
painting). 

Erasing a single line is tricky, but can be done. The 
line must be retraced exactly in the background color 
(key “1”). 

If you tire of the design, pressing the “P” key clears the 
screen and brings you to the speed prompt. 

To save a design on cassette, ready your tape recorder 
and press the “Y” key. To load a previously-saved 
design, ready the recorder and press the “U” key. 

You can sketch a design for use in other programs. 
Save the design on tape and include this code in your 
program: PMODE 3,1: PCLS: SCREEN 1,1: CLOADM 
“SKETCH”. 

Enhancements are easy to install. J ust add another IF 
Y $= statement after line 660 and appropriate code at the 
end of the program. Possible additions to the program 
are wide lines with stripes or patterns, and printing the 
screen. 

How the Program Works 

Key in the program, ignoring the remarks if you wish, 
and RUN it. Lines 110 to 250 are prompts for initial 
drawing speed. The graphics screen and parameters are 



Table 1 — Control Keys 
Directional Keys 



W Up 

E 45 degrees 

D To the right 

C 135 degrees 

X Down 

Z 225 degrees 

A To the left 

Q 315 degrees 

5 Stop drawing 

Color Keys 

1 Buff or green 

2 Cyan or yellow 

3 Magenta or blue 

4 Orange or red 

Color Set 

M Green, yellow, blue and red 

N Buff, cyan, magenta and orange 

Drawing Speed 

6 Pondering portraiture 

7 Automated artist 

8 Speedy sketcher 

9 Drawing demon 

0 Computer unbound 

Other Control Keys 

B Draw a circle 

K Paint a shape 

Y Save on tape 

U Load from tape 
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Sketcher 



BEST SELECTION! 
BEST PRICES! 



set up in 290-320. Speed is controlled by line 360, which 
acts as a pause. The FOR . . . NEXT loop is performed 
more times for a slower speed than a faster speed. 

To draw a line, the program repeatedly performs a 
PSET statement (line 370) while incrementing the X 
and/or Y coordinates. The instructions for each 
command key (lines 430 to 660) are repeated until 
another key is pressed. When a new key is pressed, the 
INKEY$ value changes and a new command begins 
(410 to 420). 

Lines 710 to 900 change X and Y coordinates for the 
PSET statement and check to make sure they are not 
being incremented out of range of the screen. Color for 
the PSET statement is set in 940 to 970. Painting is done 
in 1010 to 1020. Speed is changed in 1060 to 1100 by 
changing the value of variable TM, which is used for 
determining the length of the pause in 360. Color set 
selection is done by the SCREEN statements in 1140 to 
1150. Lines 1190 to 1260 perform the circle commands. 
The monitor switches to the prompt screen for circle 
radius and height-to-width ratio. The circle is drawn and 
the monitor goes back to the graphics screen. 

The design is saved by moving the contents of the 
graphics memory to tape in 1400. A design is loaded 
from tape in 1560. 



Program Listing for ColorSketcher 

10 SOI 

20 REM ********************************* 

********* 

30 REM ** Color Sketcher 

** 

40 REM ** By Glen Tapanila 

** 

50 REM ********************************* 

******** 



60 REM ********* 

70 REM * prompt for drawing speed 
80 REM ********* 

90 Y$="S" 

100 CLS 
110 PRINT 
W?" 

120 PRINT 
130' PRINT 
140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT 



HOW FAST DO YOU WANT TO DRA 



1. PONDERING PORTRAITURE" 

2. AUTOMATED ARTIST" 

3. SPEEDY SKETCHER" 

4. DRAWING DEMON" 

5 . COMPUTER UNBOUND" , , , 



180 INPUT "THE SPEED WILL BE??";™ 

190 IF TM > 5 GOTO 90 

200 IF TM < 1 GOTO 90 

210 IF TM=4 THEN TM=25 

220 IF TM=3 THEN TM=50 

230 IF TM=2 THEN TM=100 

240 IF TM=1 THEN TM=150 

250 IF TM=5 THEN TM=1 

260 REM ********* 



WE’RE THE BEST! 




ITM 



PERC0M DATA 7 

QUALITY FOR 

YOUR MODEL I, III OR IV™ 



A FREE Copy Of DOS PLUS 3.4™ Is Included With Every First 
Drive Purchase! 

MODEL I™: 

Doubler™ (Upgrade to Double Density with Free DOS Plus 3 . 4 TM) 

Only $129.95 

TFD40-1 40 track single sided drive Now Only $275.00 

TFD44-1 40 track dual sided drive Now Only $350.00 

MODEL III OR IV™: 

TFD 340N1 one drive single sided double-density Only $449.00 

TFD 340N2 two drive single sided double-density Only $699.00 

TFD 344N1 one drive dual headed double-density Only $560.00 

TFD 344N2 two disk dual headed double-density Only $860.00 

Percom™ Hard Disk — Quality for your System 

• works with existing floppy drives Reg. from $2495.00 

• can be daisy-chained up to four hard disks 

• DOS Plus 4.0 or LD0S included FREE 

• Now available for immediate delivery in 5 & 10 megabyte 

configuration Now, From Only $1595.00 



BIG DISCOUNTS ON PRINTERS 

DYNAX 0-1 5 ™ Daisywheel 

TM 



New! Brother HR1A 
Microprism™ 
C.itoh F-10™ 
Transtar 130™ 
Transtar 140™ 
Qkidata™ 

Star Micronics™ 



Only $ 559.00 
Only $ 899.00 
Only $ 699.00 
Only $1495.00 
Only $ 875.00 
Only $1695.00 
All Models Call for our superlow prices! 
All Models Call for our superlow prices! 



We Sell PowerSOFT™ Software from Breeze/QSD Inc.™ 
Call For Details And Our Low, Low Prices! 



SIGNALMAN™ MODEMS 



(With FREE Source™!) 

From Only $ 99.99 



Save $$ on our most popular items! 

Percom Data Separator (reg. $29.95) Now $23.95 

Screens for Models r, IT, III Green, Lt. Blue, 

Dark Blue, and Amber. Bronze for color video 
(reg. $24.95) Now $12.95 

Head Cleaning Kit (reg. $29.95) Now $19.95 

NEW Style Smoke Grey File 5Va", Holds 75 Now $24.95 

COLOR CODERS — 5 Cases (stores 
10 disks ea.) — 5 different colors Now $24.95 

MEDIA FOR LESS 

SENTINAL " complete with hub rings and lifetime warranty 

Single sided/Single density 5V4" $ 22.80 bx of 10 

Single sided/Double density 5VV $ 24.80 bx of 10 

Double sided/Double density 514" $ 33.80 bx of 10 

Single sided/Double density 8" $ 35.80 bx of 1 0 

Double sided/Double density 8" $ 38.80 bx of 10 

BUY DISKETTES IN BULK AND SAVE $$$$ 

by case only — 

Call For Pricing — From Only $210.00 Case of 100 

Order By Phone Or Mail. 



1 (800) 527-3475 



DEPT. C-9/401 N. Central Expy./Richardson, Texas 75080 
Tel. 1-800/527-3475 214/340-5366 
214/690-0207 — Sat. and Evenings Only 



‘tor ACCESS UNLIMITED 
MICRO SHOPPING CENTER 
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FlWiassimsI Software 
for LORS/T^nns S.a 




A maintenance tool for “CMD" 
files. Allows you to append 2 
or more files, reorganize, and 
offset. Extract LIB members. $40 



Z-80 assembler/editor supporting 
nested macros, conditionals, and 
includes. PRO-CREATEs a powerful 
tool that is easy to use. $100 





Transfer files directly to DOS 
6.0 from selected CP/M media. 
PRO-CURE supports Omikron, IBM, 
Kaypro, and Osborn formats. $50 



Disassemble directly from disk 
files or memory. The disk file 
source output generates 100% 
labels and handles data. $40 

A 4-function utility package 
that is loaded with power: 
DOCONFIG; MEMDIR; PARMDIR; and 
SWAP. A must for JCL users. $40 



An on-line quick reference card 
at your fingertips. Screens for 
DOS and BASIC. Create your own 
custom HELP files, too. $25 







This is the LC C-language 
compiler now compatible with DOS 
6.0. LC includes the PRO-CREATE 
macro-assembler package. $150 



A utility to build and maintain 
your own partitioned data sets. 
Collect many small files into 
one and save disk space. $40 





A block-graphics screen editor 
which is used to create graphic 
images for BASIC, assembler 
programs, or printing. $50 



U.S. Shipping: PRO-LC, $5; PRO-CREATE, $4; All 
others $2. COD add $1.50. VISA/MC/CHOICE. 

MISOSYS 

P.0. Box 4848 - Dept B 
Alexandria, Virginia 22303-0848 
703-960-2998 

L005 15 a trademark of Logical Systems, Inc. 
TRSDOS is a trademark of Tandy Corp. 



270 REM * set up screen parameters 
280 REM ********* 

290 PMODE 3,1 
300 PCLS 
310 SCREEN 1,1 
320 X=128:Y=96:C=2 
330 REM ********* 

340 REM * pause and set color to a point 
350 REM ********* 

360 FOR K=1 TO TM:NEXT K 
370 PSET(X,Y,C) 

380 REM ********* 

390 REM * check for inkey and branch acc 
ordingly 

400 REM ********* 

410 A$=INKEY$ : IF A$ = "" GOTO 430 
420 Y$=A$ 



430 


IF 


Y$="W" 


GOTO 


710 


440 


IF 


Y$="X" 


GOTO 


730 


450 


IF 


Y$="A" 


GOTO 


770 


460 


IF 


Y$="D" 


GOTO 


750 


470 


IF 


Y$="E" 


GOTO 


790 


480 


IF 


Y$="C" 


GOTO 


820 


490 


IF 


Y$="Z" 


GOTO 


850 


500 


IF 


Y$=“Q" 


GOTO 


880 


510 


IF 


Y$="l" 


GOTO 


940 


520 


IF 


Y$="2" 


GOTO 


950 


530 


IF 


Y$="3" 


GOTO 


960 


540 


IF 


y$="4" 


GOTO 


970 


550 


IF 


y$="k" 


GOTO 


1010 


560 


IF 


Y$="6" 


GOTO 


1060 


570 


IF 


Y$= ,, 7" 


GOTO 


1070 


580 


IF 


Y$="8" 


GOTO 


1080 


590 


IF 


Y$="9" 


GOTO 


1090 


600 


IF 


Y$="0" 


GOTO 


1100 


610 


IF 


Y$="M" 


GOTO 


1140 


620 


IF 


Y$="N" 


GOTO 


1150 


630 


IF 


Y$="p" 


GOTO 


90 


640 


IF 


Y$="B" 


GOTO 


1190 


650 


IF 


Y$="Y" 


GOTO 


1300 


660 


IF 


Y$="U" 


GOTO 


1450 


670 


GOTO 410 







680 REM ********* 

690 REM * change X and/or Y to move coor 
dinates 

700 REM ********* 

710 Y=Y— 1 : IF Y<1 THEN Y=1 
720 GOTO 360 

730 Y=Y+1 : IF Y>192 THEN Y=192 
740 GOTO 360 

750 X=X+1 : IF X>256 THEN X=256 
760 GOTO 360 

770 X=X— 1 : IF X<1 THEN X=1 
780 GOTO 360 

m X=X+1;Y=Y-1;IF W 

800 IF Y<1 THEN Y=1 
810 GOTO 360 
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820 X=X+1 : Y=Y+1 : IF X>256 THEN X=256 
830 IF Y>192 THEN Y=192 
840 GOTO 360 

850 X=X-1 : Y=Y+1 : IF X<1 THEN X=1 
860 IF Y>192 THEN Y=192 
870 GOTO 360 

880 X=X-1 : Y-Y-l : IF X<1 THEl'J X=1 
890 IF Y<1 THEN Y=1 
900 caro 360 
910 REM ********* 

920 REM * set color 
930 REM ********* 

940 0=1: GOTO 360 
950 0=2: GOTO 360 
960 0=3: GOTO 360 
970 0=4: GOTO 360 
980 REM ********* 

990 REM * paint an area 
1000 REM ********* 

1010 IF 0=1 THEN PSET (X,Y,2) ELSE PSET 
(X,Y,1) 

1020 PAINT (X,Y) ,0,0:0010 410 
1030 REM ********* 

1040 REM * change speeds 
1050 REM ********* 

1060 TM=150:GOTO 360 
1070 TM=100:GOTO 360 
1080 TM=50:GOTO 360 
1090 TM=25:GOTO 360 
1100 TM=1:G0T0 360 
1110 REM ********* 

1120 REM * change color set 
1130 REM ********* 

1140 SCREEN 1,0:SG=0:GOTO 410 
1150 SCREEN 1,1:SC=1:G0T0 410 
1160 REM ********* 

1170 REM * draw a circle 
1180 REM ********* 

1190 CLS 

1200 PRINT "WHAT IS THE RADIUS OF THE Cl 
RCLE" 

1210 INPUT "???"; RD 

1220 PRINT "WHAT IS THE HEIGHT TO WIDTH 
RATIO?" 

1230 PRINT "DECIMALS ARE, OF COURSE, PER 
MITTED." 

1240 INPUT "??" ;HW 
1250 CIRCLE (X,Y),RD,C,HW 
1260 Y$=" ": SCREEN 1,SC:GOTO 410 
1270 REM ********* 

1280 REM * save a sketch on tape 
1290 REM ********* 

1300 CLS 

1310 PRINT @1 , "SAVE A SKETCH ON TAPE" 
1320 PRINT @33, "GET RECORDER READY" 

1330 PRINT @65, "PRESS PLAY AND RECORD BU 
TIONS" 



1340 PRINT @97, "PRESS ENTER TO BEGIN" 
1350 PRINT @132, "TO AVOID TAPING, TYPE I 
N" 

1360 PRINT @164, "AN 'N‘ AND PRESS" 

1370 PRINT @196, "THE ENTER KEY" 

1380 INPUT XX$ 

1390 IF XX$="N" GOTO 1410 
1400 CSAVEM "SKETCH", 1536, 7679,0 
1410 Y$=" " : SCREEN 1,SC:G0TO 410 
1420 REM ********* 

1430 REM * load a sketch from tape 
1440 REM ********* 

1450 CLS 

1460 PRINT @1,"L0AD A SKETCH FROM TAPE" 
1470 PRINT @33, "GET RECORDER READY" 

1480 PRINT @65, "PRESS PLAY BUTTON" 

1490 PRINT @97, "PRESS ENTER TO BEGIN" 
1500 PRINT @132, "TO AVOID READING A TAPE 

II 

t 

1510 PRINT @164, "TYPE AN 'N' AND PRESS" 
1520 PRINT @196,"THE ENTER KEY" 

1530 INPUT XX$ 

1540 IF XX$="N" GOTO 1570 
1550 PMODE 3, SC :PCLS: SCREEN 1,1 
1560 CLOADM "SKETCH" 

1570 Y$=" ": SCREEN 1,SC:G0TO 410 




WORD 



PROCESSING 



ON YOUR 



TRS-BQ 



BECOMES 



CHILD’S PLAY 



USING SCRIPSIT 

by 

William James Haga 

USING SCRIPSIT 
is a complete and 
easy-to-use guide to 
SCRIPSIT — one of the most powerful word processing 
packages available for the TRS-80 Model I or III. 

USING SCRIPSIT is for the first-time user and the 
expert, presenting procedures at every level of difficulty 
in simple-to-follow steps and exercises. 



$21.95 



Look for these WEPCO products at your 
local computer dealer or bookstore. 

For more information or to order 
direct, call 415-595-2350 
and ask for Wendy Moore 
(MasterCard and Visa 
orders only). 



Wadsworth Electronic Publishing Company 
6 Davis Drive, Belmont, California, 94002 



TRS-80 is a registered trademark ot the Tandy Corporation 
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Call or Write 
Your Nearest 
Snappware 
Distributor 







MICRO-80 

284 Goodwood Road 
Clarence Park 
Adelaide South Australia 
Ph-(08) 2117224 

DIGI-TEK SYSTEMS 
65 Thornridge Circle 
Kitchener Ontario N2M-4V9 
Ph-(519) 742-8205 

STRAWFLOWER ELECTRONICS 
50 North Cabrillo 
Half Moon Bay 
California 94019 
Ph-(415) 726-9128 

COMPUTER MAGIC 
115 Wiltshire Avenue 
Louisville, Kentucky 40207 
Ph-(502) 893-9334 

E-C DATA 
Tornevangsvej 88 
PO.B. 116 
DK-3460 

Birkerod, Denmark 
Ph +45/2/81/8191 

SYSTEM SOFT 
49, Dunvegan Drive 
Rise Park 

Nottingham, England 
NG5 5Dx 

Ph-(0602) 275559 

CUSTOM COMPUTING 
104 Bushwick Rd. 
Poughkeepsie, NY 12603 
Ph-(914>471-9318 

AEROCOMP 
Redbird Airport 
Hanger 8 

Dallas, Texas 75232 
Ph-(214) 339-5104 



You Be 
The Judge! 

Snappware knows your programming time is valuable. That's why we are 
offering a trial package that will cut your programming time up to 75%! 

This unprecedented offer allows you to judge for yourself the value of our 
software using your hardware at your convenience. Our five best selling 
products: EXTENDED BASIC, EXTENDED BUILT IN FUNCTIONS, COLLEGE 
EDUCATED GARBAGE COLLECTOR, AUTOMAP and AUTOFILE, are all 
available to you on a trial basis for only $50.00 for the Model II and 
$35.00 for the Model III. We're convinced that after you see how well our 
software helps you perform programming tasks, you will purchase them 
like thousands of others have. 

Our trial package consists of a master diskette which may be used to 
create one working copy. Your purchase price for the trial package will be 
credited toward the purchase of any software Snappware sells. 

If for any reason you are not satisfied, just return the trial diskette and 
working copy and we will refund your money, no questions asked. With 
an unconditional guarantee like this, you can't lose. 

Call our toll free number 800-543-4628 to put us on trial. We're sure your 
verdict will be: Snappware saves you time and money. 



MODEL II Trial Package $50.00 

MODEL III Trial Package $35.00 



Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1 - 800 - 543-4628 

OHIO RESIDENTS CALL 
COLLECT: <513)891-4496 
3719 Mantell RjjTl £g 
Cinti., Ohio 45236 “ ™ 

















c o^ 

K.v° 



contact 

POWERSOFT 

11500 Stemmons Expressway 
Suite 125 
Dallas, Texas 
75229 

CALL: 

214 - 484-2976 
Texas residents 



CALL 

TOLL 

FREE 

800 - 527-7432 



"I BOUGHT IT" 

"My biggest loss 
of programming 
time using 
Snappware's 
COLLEGE EDUCATED 
GARBAGE COLLECTOR 
is spent inserting 
my diskette." 

SCOTT ADAMS - PRES. OF ADVENTURE INTL 



The Snappware College Educated Garbage Collector (SNAPP-VI) is an 
intelligent processing function which greatly improves performance of 
typical BASIC applications. And here's why. 

Microsoft uses a 'variable length string' in the BASIC interpreter. Each 
time the string is assigned a new value, it is relocated in a string pool. 
Periodically the string pool must be reorganized and condensed into a 
single contiguous area. Performing this string space reclamation is time 
consuming and inefficient because this approach evaluates and collects 
each string individually. The time required is roughly proportional to the 
square of the number of active strings in the resident program. During 
reclamation the system seems to 'lock-up' and does not respond to 
the operator until the process is completed. 

This time consuming approach requires a better solution. Snappware has 
developed a solution which takes advantage of the auxiliary memory 
available. SNAPP-VI requires only four bytes per active string as a work 
area. When free storage space is available, our system temporarily bor- 
rows, uses and returns the space to the free storage pool when com- 
pleted. If storage is not available, our system will temporarily transfer out 
to disk enough of the BASIC program to make room for our work area and 
return the 'paged out' information to its correct location when completed. 

Benchmarked times show, in some situations, SNAPP-VI performs one 
hundred times as fast as the Microsoft approach. 

If you consider your programming time to be worth money, call us and let 
us show you how to get more of it. 




MODEL II 
MODEL III 



*TRSDOS™ Tandy Corporation 



.$100.00 
.$ 75.00 



Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1 - 800 - 543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513)891-4496 
3719 Mantell 
Cinti., Ohio 45236 





DOS fix 



A collection of repair jobs for 
TRSDOS-II version 4.2 

Models 12/16 © 1982, Snapp, Inc., Bob Snapp, Cincinnati, OH 



The material that follows is 
copyrighted by Snapp, Inc. but we 
have been given permission to 
reproduce it for our readers. Our 
thanks to Mr. Bob Snapp for making 
these patches and fixes available. 
The fixes are available on diskette 
as a DO file from Snapp, Inc., 3719 
Mantell Ave., Cincinnati, OH 45236 
(513) 891-4496 for only $15. 

These patches are only for 
TRSDOS-II Version 4.2 (Models 12 
and 16). Some of the fixes require 
that the system be reset before they 
take effect. You should RESET the 
system after applying your selected 
fixes. Note carefully the discussion 
for each fix as well as the notes in the 
listings. In some cases a fix must be 
applied prior to another fix. The 
patches and the discussions 
preceding them are taken directly 
from a Snapp DOSFIX diskette. 
Please note that some DOSFIX 
numbers are not listed. They are no 
longer applicable due to changes in 
TRSDOS-II Version 4.2. 

Readers should also note that 
another set of DOSFIXes that were 
developed just for TRSDOS 2.0 by 
Snapp, Inc. were published in the 
July/August 1982 issue of 
two/sixteen Magazine , Box 1216, 
Lancaster, PA, 17603. 

To install the patches, you can 
enter them directly from TRSDOS 
Ready (bypassing the PAUSE 
statements), or build a DO file that 
includes the PAUSE and PATCH 
commands. Creating a DO file that 
contains the patches you desire will 
be very convenient for altering new 
system disks as they are created. 

DOSFIXOl 

This one changes FORMAT so it 
will not try 10 times to format a 
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track. FORMAT time is the time to 
find out if your diskette-surface 
quality is marginal and/or your 
drive is not in good shape. We 
recommend that everyone apply this 
fix. If you get locked-out tracks, 
discard the diskette immediately. 
We have found all currently 
available double-density certified 
diskettes to be of good quality. If you 
find yourself discarding more than 
roughly one percent of your 
diskettes, we suggest that you have 
your drives checked out. Our 
findings indicate that CDC drives in 
the Model II expansion bay need 
more frequent alignment than any 
other drives. If you are formatting 
diskettes in one of your expansion 
drives and get locked out tracks, we 
suggest that you try that particular 
diskette in drive zero. If it formats 
cleanly in drive zero, it is definitely 
time to get your expansion drives 
fixed. 

DOSFIX02 

It seemed that Tandy’s efforts to 
password protect their software just 
wasn’t providing the protection they 
desired, so starting with TRSDOS 
2.0, they modified the operating 
system such that no password would 
work. This fix disables the new code 
and the real password KTA2 will 
now work. 

DOSFIX03 

The PATCH program in 
TRSDOS-II Version 4.2 contains an 
error which prevents the use of the 
A= specification under certain 
circumstances. This fix is an 
absolute prerequisite for many fixes. 

DOSFIX04 

Starting with TRSDOS 2.0, Tandy 



decreed that machine language 
programs could not load on top of 
any part of TRSDOS. I don’t know 
whether they were trying to prevent 
a programmer from accidentally 
destroying his operating system, or 
simply trying to give software 
houses a tough way to go. In any 
event, the ability to overlay 
TRSDOS is an absolute requirement 
for some Snapp, Inc. software. Put 
this one on for sure. 

DOSFIX06 

The DEBUG module checks 
addresses and if you would like to 
use DEBUG to fiddle with the 
‘forbidden’ areas in the machine, put 
this one on. 

DOSFIX07 

It was a very poor design to put the 
break key right next to the back 
space key. Touch-typist operators 
are continually reaching for the 
back space key with their pinky and 
accidentally hitting the break key. 
We can’t repair the poorly designed 
hardware, but we can fix the 
software so another key does the job. 
With these fixes installed, <ctrl> 6 is 
the break key and the break key 
simply produces CHR$(03). 
Recommended for everyone. It is 
required for correct operation of 
Snapp-IV, an Extended BASIC 
Mapping Support package. 

DOSFIXIO 

This one simply eliminates the 
display of the Tandy Corporation 
logo at boot-up time. If you like the 
picture, don’t put this one on. 

DOSFIX11 

This one will eliminate the TIME 
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IRS-80 MODEL 4 

Word Processing Program 




'TXS&r***- 



Works with TRSDOS 6.0 

90K TEXT BUFFER when expanded memory is installed. 

Built-in FORM LETTER and MAIL-MERGE capabilities. 

Performs PROPORTIONAL-SPACE right-margin justification on 
over 60 different printers (all drivers included FREE). 

□ Same powerful editing features as ZORLOF II, with dozens more 
features added. 

□ Versions also available to run on MODEL I, MODEL III, LNW-80, 
PMC-80, and MAX-80 (80x24 display). 

LeScript costs *200 less than 
competing products matching its capabilities. 



MasterCard 



CALL 1-306-259-9397 ANUB( j 

FREE SHIPPING WITHIN THE U.S.; OUTSIDE THE U.S. ADD $10.00 FOR SHIPPING; FLORIDA RESIDENTS ADD 5% SALES TAX. ALL ORDERS PREPAID 
BY CHECK. MONEY ORDER, CREDIT CARD OR C O D 



ANITEK SOFTWARE PRODUCTS 
P.O. BOX 361136 
MELBOURNE, FL 32936 
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question when you boot up. 




If you 
ever wished that 
you had a better program- 
ming language, PASCAL 80 may 
be the language you dream about. It is 
a compiled language, faster, more ac- 
curate and easier to modify than Basic. 
Yet it is so easy to use that you can 
forget the hassles and diskette spinning 
of other compiled languages, including 
other versions of Pascal. 



Now you can create your own com- 
mand files that execute from DOS 
without having to load a language into 
the computer first, but do it with far less 
work than machine language. You can 
sell your compiled programs without any 
royalty payments! 



Although designed for teaching and 
ideal for that purpose, PASCAL 80 also 
allows serious applications with a full 
fourteen digits of accuracy, even on log 
and trig functions! 

PASCAL 80 allows you to create files 
on the TRS-80® Model I, Model III, 
LNW-80, PMC-80, or LOBO MAX-80 
that will run on any of the other 
machines under TRS-DOS®, LDOS, 
NewDOS, NewDOS 80, DBL-DOS or 
DOS Plus. 




PASCAL 80 is used in dozens of High 
Schools, Colleges, and Technical 
Schools, and has been favorably re- 
viewed in Byte, Creative Computing, 
and other magazines. 

You get all of this at a bargain price of 
only $99 plus $2 shipping. If you call and 
order by MasterCard or VISA, we will 
even credit you $1 for the phone call. 
Call or send your check today! 



N EW CLASSICS SOFTWARE 

239 Fox Hill Road 
Denville, NJ 07834 
(201) 625-8838 

TRS-80® and TRS-DOS arc trademarks of Radio Shack, 
LNW-80 of LNW Research, PMC-80 of Personal Micro 
Computers, LOBO, LDOS, and MAX-80 of Lobo Systems, 
DOS-Plus of Micro Systems Software, NewDOS and 
NewDOS 80 of Apparat, and DBL-DOS of Percom. 
PASCAL 80 is a trademark of New Classics Software. 

NEW!! POINTER VARIABLES! 





PASCAL 

$ 14 . 77 ! 

Now you can try Pascal 
without spending a fortune! The 
Pascal 80 Trial Version is a 
reduced version of Pascal 80, and 
does not include pointer variables 
or disk files, and does not allow 
you to save your programs. But it 
does let you program in Pascal, 
list your programs to a printer, 
and even comes with a coupon 
worth $10 off the regular price of 
Pascal 80. This version of Pascal 
comes on a diskette that will boot 
on a Model I or Model III 
TRS-80. 

Here is what you get: 

VARIABLE TYPES: real, in- 
teger, char, boolean, arrays, 
sets, records, and user de 
fined types. 

CONSTANTS: minint, pi, true, 
false, and user defined 
constants. 

OPERATORS: + - * / div mod 
comparison/set operators 
and or not. 

FUNCTIONS: abs sqr sqrt sin 
cos arctan exp In ord pred 
succ chr odd round trune. 
PROCEDURES: read readln 
write writeln 

STRUCTURES: if.. then.. else 
case for.. do while.. do 
repeat.. until goto 



Send $14.77 by check or money 
order to: 

Pascal 80 Trial Version 
New Classics Software 
239 Fox Hill Road 
Denville, NJ 07834 



Sorry, no credit card orders at 
this price! See our other ad for in- 
formation on our regular version 
of Pascal 80. 



TS JEW (CLA SSICS 

^SOFTWARE 
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DOSFIX12 

This one will eliminate both the 
DATE and TIME questions when 
you boot up. 

DOSFIX13 

You may have noticed that while 
current versions of TRSDOS have 
an 80-character type-ahead 
keyboard, it doesn't work with 
BASIC. These fixes correct that, but 
when they are installed, the HOLD 
key no longer functions with 
BASIC. We like it with the fixes 
installed and don’t miss the HOLD 
key, but you can take your choice. 

DOSFIX14 

In our opinion, the FORMS 
command harasses the computer 
operator with too many questions. 
This one eliminates them. 

DOSFIX15 

If BASIC LPRINTs more than 255 
consecutive characters without an 
explicit carriage return, BASIC 
sends one out at that point. This is 
clearly in conflict with the W= 
function of the TRSDOS printer 
driver and produces confusing 
output. This one fixes BASIC to 
mind its own business. 

DOSFIX17 

As we mentioned in DOSFIX04, 
TRSDOS ‘protects’ itself from 
destruction by users programs 
which attempt to overlay low 
memory. The error produced as a 
result is ERROR 34, “Attempt to use 
a non-program file as a program.” 
We think the message is misleading 
and substitute one of our own. This 
is kind of an inside joke and not 
necessary for correct operation. 

DOSFIX18 

This one changes the text of the 
message ‘TRSDOS-II Ready’ to ‘By 
your command’. Another inside 
joke, but cute. 

DOSFIX19 

Some disassemblers will not 
correctly function on system files 
unless the passwords are completely 
removed. This one does exactly that. 
Not necessary for anybody. 

DOSFIX20 

In BASIC, if HEX (&H) constants 

Refer to advertiser index for reader service number 




are followed in the text by a blank 
space, a syntax error will normally 
result. This one corrects this 
unnecessary restriction. 

DOSFIX21 

This fix changes the sector 
interleaving on diskettes to allow 
much faster access. It also 
eliminates an unnecessary head- 
settle delay when the disk head does 
not move. In order to take advantage 
of this fix, you must BACKUP each 
of your diskettes after the fix has 
been applied. This fix will make 



floppy disk I/O up to three times 
faster than normal. Recommended 
for everyone. 

DOSFIX22 

BASIC was performing an 
unnecessary function when doing a 
GET or a PUT with an explicit 
record number. Because of the 
(relatively) slow speed of the 
floppies, the additional overhead 
went unnoticed. On the hard disk 
however, the difference is very 
significant. Please note that BASIC 
programs which use ‘implicit’ record 



DOS fix 

numbering will still run quite 
poorly, even with this fix applied. 
We recommend that you re-work any 
BASIC programs so they do not use 
implicit record-numbering. 

DOSFIX24 

Extend Thinline drive delay for 
more reliable operation. 

DOSFIX25 

This one fixes the PRINT 
command so no garbage is added 
when the logical record length is one 
and there is no carriage return. 



.PAUSE DOSFIX01: Make formatting of floppy diskettes Pickier about quality. 

PATCH FORMAT R=24, B=95, F=0202A84&,0000000000000000, C=01 0424130101010433130101 
PATCH FORMAT R=24, B=107, F=00000000, C=0202A846 

PATCH FORMAT R=37, B=74, F=020239460000000000000000, C=010424130A05010433130A05 
PATCH FORMAT R=37, B=8S, F=00000000, C=0202394G 

..PAUSE DOSFIX02: Eliminate the 7 no-password 7 malarkey for system files. 

PAUSE After this is installed, the password KTA2 is effective. 

PATCH SYSTEM/SYS R=42, B=55, F=23, C=00 

..PAUSE DOSFIX03: Correct error in PATCH which prevents use of A= specification. 
PATCH PATCH R=S, B=24, F=CA3C32, C=000000 

..PAUSE DOSFIX04: Allow machine language programs to load below 2800H 
PAUSE This patch will not be effective unt i I you reset the system. 
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PAUSE You must apply DOSFIX03 prior to applying this patch. 

PATCH SYSRES/SYS A=1B12, F=30D5, C=0000 

..PAUSE DOSFIX0S: Disable address checking in DEBUG 

PATCH SYSTEM/SYS R=135, B=70, F=3SF3, C=0000 

PATCH SYSTEM/SYS R= 135, B=7S, F=30EB, C=0000 

PATCH SYSTEM/SYS R=133, B=173, F=30CE, C=0000 

PATCH SYSTEM/SYS R=139, B=181 , F=38C6, C=0000 

PATCH SYSTEM/SYS R=140, B=201, F=38, C=1S 

PATCH SYSTEM/SYS R=140, B=215, F=30, C=1S 

..PAUSE DOSFIX07! Next six move BREAK key function to <CTRL>6 
PAUSE These patches wi l l not be effective unt i l you reset the system. 

PAUSE DOSFIX03 must be applied prior to this one. 

PATCH SYSRES/SYS O=02F5, F=03, C=7E 
PATCH BASIC A=57E7, F=03, C=7E 
PATCH BASIC A=594C, F=03, C=7E 
PATCH BASIC A=5R70, F=03, C=7E 
PATCH BASIC A=S0SS, F=03, C=7E 
PATCH BASIC A=S515, F=03, C=7E 

..PAUSE DOSFIX10: Eliminate the Tandy logo at boot-up 

PATCH SYSTEM/SYS R=22, B=5, F=0S, C=C9 

..PAUSE D0SFIX11: Eliminate TIME prompt at boot-up 

PATCH SYSTEM/SYS R=25, B=62, F=21FS1E, C=C3S41E 

..PAUSE D0SFIX12! Eliminate DATE and TIME prompts at boot-up 

PATCH SYSTEM/SYS R=25, B-24, F=21DF1E, C=C3S41E 

..PAUSE D0SFIX13: Update BASIC to support the S0 character ty peahead buffer. 

PAUSE DOSFIX07 is a prerequisite to using this fix 

PAUSE If you elected not to instal l DOSFIX07, do not attempt 

PAUSE to install D0SFIX13 

PAUSE This fix may be used alone if you modify it such that both 

PAUSE occurences of the hex code ’ 3E7E’ are replaced by ’ 3E03’ (there are two) 



GO 



WORD PROCESSING 



With Crayon 'Deluxe & Scrip Jr 



Grayon Deluxe is a complete Bit-Image word/graphics processor which creates stunning visual effects using custom text and 
graphics. Use it with the Jont matter to create your own SPECIALITY FONTS, Logos, Mail Labels, Charts, Graphs, Letters, 
Cartoons & Basic Screens. It features underlining, wide printing, overlays, reverses, justification, centering, custom graphics, 
foreign languages, logic seeking, line drawing and fancy borders with over 100 commands all in Z-80 Machine Language for 
speed and ease of use. The Gcfitor is the most sophisticated FULL SCREEN EDITOR ever written for the TRS-80. 

AVAILABLE NOW for the following printers: 

All MX + FX printers with Graphtrax - All PR OWRITER and 8510A and All GEM INI 10+15 
COMPLETE 70 page manual, 2 disks - samples - FONTMAKER - “ w i ( h over 600 characters. 

300 character fonts are $15.00 - Fonts available are DIGITAL — ELITE — HERITAGE — Comes with Outline and Italics. 



33rush 



JKeritape 



Digital 



Outline 



33 orders 



Shapes 



azc 




label 



abesda 

abedef 




c 



ah 





i □□ 
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Scrip/r - Turns Scrip/s it into a full word processing system by providing complete printer support for the following printers 
MX 80 + FX 80 - LP-4 + 8 - DMP 200 + 400 — DW2 — PROWRITER — CIOTH 8510A — GEMINI — MICROLINE 
— FEATURES on most versions include Emphasized, Double Strike, access all available typestyles, change character widths, 
sub and super script, pausing, dot linespacing changes, Editing, Macro’s, DOS Reentry, Send any Code to printer, Supports 
(ALL Graphtrax Functions, — most Mid-Line), DIAL-A-PRINT, Form Letters, Print to video only for trial pagination and much 
much more. Available with versions for J2J22a0nE2alE3I3iS2K2S^S3iS3DS3E2l2E3 teacl ^ n S programs and a 66 page manual. 

• # # QUALITY - INNOVATION - - SUPPORT - PRINT SAMPLES AVAILABLE ON REQUEST # # # 



Free Brochures 



PIONEER SOFTWARE 



1746 N.W. 55th AVE. No. 204 Lauderhill. FL 33313 Phone: (305) 739-2071 Checks/Money Orders/COD s accepted 
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DOS fix 



PATCH BASIC A=325C, F=43, C=62 
PATCH BASIC A=57DC,F=43, C=E2 
PATCH BASIC A=60EF, F=49, C=55 

PATCH BASIC A=6043, F=00000000000000C53E04CF, C=3AE161B72S063E7EF5AF1S 
PATCH BASIC A=E054, F-2005F&FF78C1C3C13A6161B7, C=17C53E04CF20043C7SC1C3AF 
PATCH BASIC A=60E0iF=C8AF32S1613E7EB7,C=ClC93ASlGlB720E7 
..PAUSE D0SFIX14: Eliminate prompts & messages from FORMS command 
PATCH SYSTEM/SYS R=S3, B= 178, F=0E0D, C=1S14 
PATCH SYSTEM/SYS R=3B, B=220, F=21E420, C=C3041 F 

..PAUSE D0SFIX15: Eliminate garbage carriage return to printer from BASIC. 

PATCH BASIC A=56FS, F=CC0D572S07, 0=0000000000 
..PAUSE DQSFIX17: Correct text of ERROR 34 message. 

PATCH SYSTEM/SYS R=126, B=91 , F=2EDSE315FA349C, C=7426D8E31 18F00 

..PAUSE D0SFIX18: Change text of "TRSDOS-II Ready" message to "By your command" 

PPiTCH SYSTEM/SYS R=4, B=43, F="TRSD0S-I I Ready ", C="By your command" 

..PAUSE D0SFIX18: Remove passwords from ALL system files. 

ATTRIB SYSTEM/SYS. KTA2 ACC=, UPD= 

ATTRIB SYSRES/SYS. KTA2 ACC=, UPD= 

ATTRIB APPEND. KTA2 ACC=, UPD= 

ATTRIB BASIC. KTA2 ACC=, UPD= 

ATTRIB BACKUP. KTA2 ACC=, UPD= 

ATTRIB BUILD. KTA2 ACC=, UPD= 

ATTRIB COPY. KTA2 ACC=, UPD= 

ATTRIB CREATE. KTA2 ACC=, UPD= 

ATTRIB DRIVE. KTA2 ACC=, UPD= 

ATTRIB DUMP. KTA2 ACC=, UPD= 

ATTRIB FC0PY.KTA2 ACC=, UPD= 

ATTRIB FILES. KTA2 ACC=, UPD= 

ATTRIB FORMAT. KTA2 ACC=, UPD= 

ATTRIB HELP. KTA2 ACC=, UPD= 



This Prescription 
Will save the life of 
your VISICALC ! 

— Don’t Buy a New Machine to Run it On 

— Don’t Buy a New Spreadsheet Program 



SYMPTOM: Desperate need to sort the rows or 
columns of a VisiCalc spreadsheet 

*x: SORT™ from SOLUTIONS 

SYMPTOM: Bleary Eyes from trying to print a good 
looking report from VisiCalc 



Nil 



REPORT™ from SOLUTIONS 



SORT Y REPORT 



J 




• Sort the rows or columns of your VisiCalc 
spreadsheet 

• Formulas and values move with each row 
or column 

• Sort alphabetically or numerically 

• Sort in ascending or descending order 

• Use up to four additional keys to break 
ties or specify secondary sorts 



Both are Available lor IRS 80' Models 
1/11/12/16, III Apple II +. HE, III and for the IBM 
PC tm and compatibles 



► Print with variable width columns 

► Segment large spreadsheets into 
multipage reports 

» Repeal columns and rows and multipage 
reports 

► Eliminate unwanted columns 
►Align decimal points 

» Center or justify labels and values 

► Add titles and page numbers to your 
report 

• Write reports to disk for later printing or 
transmission 



Solutions, Inc. 

13 State Street, Box 989, Montpelier, Vermont, 05602. Telephone (802)229-0368 

U Send me a Free Brochure 
PLEASE SEND ME THE FOLLOWING SOFTWARE 

□ SORT $89.00 1 REPORT $79.00 

□ Send me BOTH SORT and REPORT for $158.00 

ALSO AVAILABLE: (^ E $1 °) 

□ Dow Jones Spread Sheet Link $279 00 
T1GL Bridge $195.00 



Payment Method Preferred 
: Check or Money Order Enclosed 
Charge My Credit Card Visa MasterCard 

Card no. Exp. Date / 

Signature 

Name 

Address 

City J 

State Zip + ■" 



Include $4.00 for shipping and handling. 

VisiCalc' is a trademark of VisiCorp. TRS-80 v ‘ is a trademark of Tandy Corp. IBM PC t m is a trademark ol IBM Corp. Apple* is a trademark of Apple Computers. Inc. 
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DOS fix 



PTTRIB LIST. KTP2 PCC=, UPD= 

PTTRIB MEMTEST. KTP2 PCC=, UPD= 

PTTRIB MOVE. KTP2 PCC=, UPD= 

PTTRIB PPTCH. KTP2 .PCC=, UPD= 

PTTRIB PRINT. KTP2 PCC=, UPD= 

PTTRIB RECEIVE. KTP2 PCC=, UPD= 

PTTRIB RESTORE. KTP2 PCC=, UPD= 

PTTRIB SPVE. KTP2 PCC=t UPD= 

PTTRIB TERMINPL. KTP2 PCC=, UPD= 

PTTRIB PSM1S.KTP2 PCC=, UPD= 

PTTRIB BOOT IE. KTP2 PCC=, UPD= 

PTTRIB EDIT16. KTP2 PCC=, UPD= 

PTTRIB IFC. KTP2 PCC=, UPD= 

PTTRIB LINK IE. KTP2 PCC=, UPD= 

PTTRIB TRSDOS1E/SYS. KTP2 PCC=, UPD= 

. . PPUSE DOSFIX20: Correct error in BPSIC relating to hex constants. 

PPTCH BPSIC P=39DD, F=237E, C=EF00 

..PPUSE DOSFIX22: Make I/O on disk drives so much faster with BPSIC 
PPUSE Plso updates BPSIC to support E5535 losical records per file. 

PPTCH BPSIC P=E5FP? F=C5E5505913133E21CFt C=0303ED431EEE7EFE2C 
PPTCH BPSIC P=EE03,F=50591313E17EFE2C, C-280350593E21CF03 
PPTCH BPSIC P=EE0B,F=CC09332BEF, C=1S10CDDC3C 
PPTCH BPSIC P=6E10, F=C2F52EE3E5, C=2BEFC2F52E 
PPTCH BPSIC P=EE1P, F=1B2323424BEB, C=424B0B1 10000 

PPTCH BPSIC P=EE24i F=20093E23CFC272ESC1E1, C=3E232S023E2CCFC272ES 
PPTCH BPSIC P=EE2F, F=3E2CCFC329EE, C =000000000000 

..PPUSE DOSFIX24: Extend Thinline Drive Delay for more reliable operation. 
PPTCH SYSRES/SYS P=10DS, F=£0, C=65 

..PPUSE D0SFIX25: Fix PRINT so no garbage when LRL = 1 and no carriage return. 
PPTCH PRINT P=2S7Pi F=PFB9C4iP230E003ElDCF, C=212B2PPFB9C41P2S0000 



In Texas Orders 
Questions & Answers 
1-713-392-0747 



JEuymai industries, inc. 



2251 1 Katy Freeway 
Katy (Houston) Texas 77450 



To Order 
1-800-231-3680 
800-231-3681 



SAVE BIG DOLLARS ON ALL TRS-80 HARDWARE & SOFTWARE 

TRS-80® BY RADIO SHACK. Brand new in cartons delivered. Save state sales tax. Texas residents add only 5% sales tax. 
Open Mon.-Fri. 9-6, Sat. 9- 1 . We pay freight and insurance. Come by and see us. Call us for a reference in or near your city. 
Ref: Farmers State Bank, Brookshire, Texas. 



WE OFFER ON 
REQUEST 

Federal Express (Overnight Delivery) 0 

Houston Intercontinental 0 

Airport Delivery (Same Day) 

U.P.S. BLUE (Every Day) 0 

References from people who have 0 

bought computers from us probably in 
your city. We have thousands of 
satisfied customers. WE WILL NOT BE 
UNDERSOLD! 




IP] 

No Tax on Out of Toxat Shipments! 



10 % 15 % 



ED McMANUS 



OR MORE 

See us every Tues.. Wed. & Thurs. in the Wall Street Journal. 

Telex 77-4132 (FleksHou) 

' TRS 80 is a Registered Trademark of Tandy Corp 



WE ALWAYS 
OFFER 

0 We accept Master Card, VISA, 
and American Express. 

0 We use Direct Freight Lines. No 
long waits. 

0 We always gay the freight and 
insurance 

0 Toll free order number 

0 Our capability to go to the giant 
TRS 80 Computer warehouse 5 
hours away, in Ft. Worth, Texas, 
to keep you in stock. 

JOE McMANUS 



VISA 
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ANYONE CAN USE OUR SOFTWARE! 




MAIL PAC II and CHECKING PLUS represent a 
new generation of computer software. Our 
software doesn’t even need a manual! Any- 
one can quickly learn to use either package 
by following simple, explicit on-screen 
instructions. But, for those of you who insist 
— we’ve included a complete user’s manual 
as well. 





CHECKING PLUS FEATURES: 



High Capacity -- 

Stores from one to one million names in Zip Code, Numerical or Alpha- 
betical order. The only limitation is your disk storage space. 

Flexibility — 

Prints your mailing list on 1 , 2, 3, or 4-across labels (with up to 5 user- 
defined lines on each label) or as a compact, user-designed directory. 
The record length is completely user-defined, and each field within 
each of your records is completely variable (allowing storage of any 
number of characters for any particular address entry). Devote fields 
to telephone numbers, codes, or even special messages related to each 
particular name on file. 

Powerful - 

A built-in word processor allows you to create personalized form letters 
for each address on your list (or just a particular group of addresses). 

Ease of Use — 

Create new mailing lists, review existing lists, handle changes of 
address, delete cancelled names, sort lists, and purge duplicate names 
from your files. Complete on-screen instructions tell you in plain 
english exactly how to accomplish all of these tasks. 



Complete Check Register — 

Checking Plus stores your entire check register in a disk file, and then 
uses the data to balance your account, track your expenses, and help 
you make budget projections. Review the entire checkbook, enter 
checks, deposits, fees and adjustments, mark outstanding checks when 
paid, and get an instant cash balance atany time. All data can be viewed 
onscreen or printed out in report form. 

Tax Preparation — 

Storage of monthly and yearly totals and other important information 
aids in income tax preparation, for your personal use or for your 
accountant. 

Handles the Details — 

Store names and addresses for frequently written checks, then print 
checks to fit standard window envelopes, eliminating the need for extra 
typing. You can even store any comment, explanation or other message 
(up to 255 characters) related to a particular check. 

Automatic Monthly Bill Payments — 

Enter amounts and names of payees for all of your fixed-cost monthly 
payments, and then sit back while the system automatically prints 
checks. 



MAIL PAC II $99.95 CHECKING PLUS $99.95 



Both Programs Require 48K And At Least One Disk Drive (2 Drives For FREE-TRS-80 Mod I, III & 4 programs supplied on DosPlus (minimum system). 
Higher Storage Capacities). And All Hard Disk Systems Are Supported. Complete DosPlus also available. 



FOR YOUR TRS-80™ • APPLE™ • IBM PC™ • NEC™ • OSBORNE™ • XEROX™ • KAYPRO™ • TELEVIDEO™ • ZENITH™ • SANYO™ 
DEC™ • Tl PROFESSIONAL COMPUTER™ • SUPERBRAIN JR.™ • EPSON™ • Any CP/M™ Computer 

CP/M-based Computers must be equipped with Microsoft BASIC (MBASIC or BASIC-80) 

TRS-80 trademark Tandy Corp - APPLE trademark Apple Corp. - IBM PC trademark IBM Corp. - ATARI trademark Atari, Inc. - OSBORNE trademark Osborne Corp. - XEROX trademark Xerox Corp. 
KAYPRO trademark Non-Linear Systems, Inc - TELEVIDEO trademark Televideo Systems. Inc - SANYO trademark Sanyo Corp - NEC trademark NEC Corp - DEC trademark Digital Equipment Corp 
ZENITH trademark Zenith Corp - Tl PROFESSIONAL COMPUTER trademark Texas Instruments. Inc -SUPERBRAIN trademark Intertec Corp. - CP/M trademark Digital Reseaech - EPSON trademark Epson Corp 



OUR SOFTWARE CATALOG 

H & E Computronics, Inc., has mailed more than 1 million 
software catalogs since 1978. Send $2 for our new64-page 
catalog today! (We also send you our catalog FREE with 
every order). DEALER INQUIRIES WELCOME 



30-DAY MONEY BACK GUARANTEE 

•** ALL PRICES & SPECIFICATIONS SUBJECT TO CHANGE *** 
DELIVERY SUBJECT TO AVAILABILITY 



■CQMRJTRQNICS: 

50 N. PASCACK RD., SPRING VALLEY, N.Y. 10977 



ADD $3 00 FOR SHIPPING IN UPS AREAS 
ADD $4 00 FOR C O D OR NON-UPS AREAS 
ADD $5 00 TO CANADA & MEXICO 
ADD PROPER POSTAGE OUTSIDE OPUS. 
CANADA & MEXICO 





HOUR 

24 ORDER 

LINE 

( 914 ) 425-1535 



NEW TOLL-FREE 

ORDER LINE 



( 800 ) 431-2818 





Risko 



Analyze your heart disease risk factors 



Models 1/11/111/4/ 1 2/ 1 6 



David E. Clapp, Ph.D., Cincinnati, OH 



All Americans are becoming more aware and 
concerned about heart disease, especially now with the 
increased publicity regarding this threat to health. This 
article (and accompanying program) is based upon an 
article (sponsored by the American Heart Association) 
which appeared in the Cincinnati Enquirer on February 
16, 1982. A similar article may have appeared in your 
paper. Perhaps you scanned the article, and perhaps you 
even tried to compute your score to determine your basic 
risk of developing heart disease. 

If you didn’t compute your score at that time, this 
computer program will ease the computation of the risk 
score for you as well as your family and friends. The 
program offers some advantages over a pencil and 
paper computation — primarily by eliminating error 
and confusion in calculating the score. Beyond this, 
however, the program offers additional information and 
provides an opportunity to re-run your rating many 
times with a minimum of effort. 

Heart Disease Risk Factors 

The risk factors for heart disease appear reasonably 
well-known. High blood pressure is recognized as a 
danger signal which we all should carefully observe. 
Blood pressure is reported as systolic and diastolic 
values; or, the highest and lowest pressures in the 
circulatory system. Thus, when we have our blood 
pressure taken, a rating of 120/80 might be given 
relating the systolic/diastolic values. It is generally 
agreed that the highest value, systolic pressure, is the 
most threatening and this is the value used in the 
accompanying computer program. If the value is not 



known, it is possible to estimate it from your weight (as 
the program does) although we all should be aware of 
our current blood pressure values. 

Blood cholesterol level appears to have a less 
significant role in heart disease; nonetheless, we are all 
bombarded in the popular media about cholesterol and 
the cholesterol content of popular foods. It requires a 
blood test for a cholesterol reading (with a needle, ugh) 
and many of us probably do not know our personal 
cholesterol level. We probably should keep personal 
records of this value as a part of a continuing health 
monitoring program. This program will estimate your 
cholesterol level from your weight, but you may find 
some interest in re-running the program at several 
cholesterol levels to determine the effects on your 
personal risk rating. 

If we are to believe the warning printed on cigarette 
packages, none of us have any business smoking. 
Despite such warnings, many of us still smoke hoping 
that such warnings are only meant for “the other guy.” 
If you are to believe the American Heart Association, 
however, smoking is a risk factor in heart disease and 
the accompanying computer program adjusts your risk 
rating depending on the quantity of cigarettes you 
smoke. There are some interesting observations on 
smoking and age which become apparent by studying 
the ratings used in the computer program. 

This program also includes consideration for use of 
estrogen as a risk factor in heart disease. This factor 
only applies to women and is a function of length of use 
(more than five years of continual use) as well as 



Table 1 
































Sex/ 

Age 






Weight 




Blood 


Pressure 






Cholesterol 




Smoking 


Male 


A 


B 


C 


D 


119 


139 


159 


>159 


199 


224 


249 


>249 


0 


<1 


1 >1 


<54 


-2 


-1 


1 


2 


-1 


0 


0 


1 


-2 


-1 


0 


1 


-1 


0 


1 2 


>54 


-2 


0 


1 


3 


-5 


-2 


1 


4 


-1 


-1 


0 


0 


-2 


-1 


0 1 


Female 
































<54 


-2 


-1 


1 


2 


-2 


-1 


0 


1 


-1 


0 


0 


1 


-1 


0 


1 2 


>54 


-2 


-1 


0 


1 


-3 
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3 
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-3 


-1 
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-2 


-1 


1 4 
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consideration of whether estrogen is currently used. 

As you are no doubt aware, there are many other 
factors which appear to have an effect on heart disease. 
Heredity, for example, is obviously a factor as well as 
exercise and stress. None of these factors are measured 
in this simple program. Perhaps this is just as well since 
we don’t want to put physicians out of the cardiac 
business. It may be helpful, however, to at least focus 
attention on the factors included in hopes that 
awareness will be heightened and perhaps a person with 
an unrecognized risk may be more aware and seek 
professional help. 

Program Operation 

The program is exceedingly simple. Many of you 
reading this article could probably improve on the 
coding (please feel free to do so); however, the program 
does work. Basically, the program acquires sex, age, 
height, weight, and number of cigarettes smoked. The 
program then processes your score based first upon sex, 
since rating factors are different for men and women. 
Within each sex, the program computes a score for 
weight, blood pressure, cholesterol, and smoking (also, 
estrogen for women). It then presents a summary of the 
data and an overall score. The score is interpreted based 
upon a range of values. 

Everyone begins the process with a score of 10. 
Additions and subtractions are computed based upon an 
evaluation of each factor yielding to a rating ranging 
from zero to over twenty. A score of zero is the perfect 
heart and a score over 20 spells trouble. A rating of 10 is 
considered moderate to high risk of heart disease; hence, 
an individual must be exceptional to fall into the low- 
risk category. Ratings and cutoff values are shown in 
the computer program beginning at line 1230. 

Data for heights and weights are stored in data 
statements beginning with statement number 1410. 
Each triplet of values represents three weight categories 
for a given height; men’s heights begin with 61 inches 
and women’s begin with 56 inches. Height values are 
continued for each inch beyond the initial value for 18 
inches (e.g., up to 78 inches for men). Thus, the program 
looks up the proper weight category for a height input 
and classifies the weight given into one of four groups. 
In the triplet of values there is a low, medium and high 
weight where those persons exceeding the high weight 
are classified in the fourth category. 

Using the height and weight data, as well as other 
data discussed later, the program follows up with a 
comparison of actual to recommended values for each 
risk factor. Hopefully, this comparison will motivate the 
user to evaluate the most threatening factor(s) and 
consider action to reduce risk. The user is encouraged to 
re-run the program with revised data (based upon 
improved values) to compute the effect on an overall 
rating. Sometimes this exercise is surprising since there 
is interaction between factors, e.g., cholesterol and age. 

The best illustration of the program operation is a 
demonstration of a couple of runs. Consider, for 
example, a male 6 feet tall, weighing 200 pounds, age 35, 
smoking more than one pack a day, and whose systolic 
blood pressure and cholesterol levels are unknown. 
Inputting this data yields the following risk rating. 



THE DATA BANK 

flnnounc£5 t lid 

riEU PROGRAM ! 
ADR THE TR5AD 

nociEL i fine in 



UJD££l-8{] 

GRAPHIC ANIMATION GENERATOR 




(01983 BY TON DEMPSEY 



VIDEO-80 by TOM DEMPSEY — The author 
of the new IJG book. Games & Graphics, 
brings you this Graphics Utility program 
that will let you create all the graphics you 
need for a game title, a menu, or to write 
and control animation in your programs, all 
without writing any code. (48K Disk) $39.95 



HU5JC RAGJC 

(C) 1983 BY TW DEMPSEY I MY UB/IfiM 




MUSIC MAGIC bv ANDY LEVINSON & TOM 
DEMPSEY — Add the magic of graphics to 
the music of a composer and you get music 
and animation so real that you won^t believe 
it's software! Simple commands let you 
play and write music and even compile 
music into a Basic subroutine that you can 
merge into other programs. (48K Disk)$39.95 



ID ORDER.. SEND OCX QR NKY ORDER T0< 

DATA BANK 
RO. BOH 3SHI 
ALHAHBRA, CA 

RIA03 la HOUR EHIPPDC | 

California Residents add $2.60 for Sales Tax 
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OPTIONS 

MODEL I ADD $50. 

IBM, APPLE, MAX80 ADD $100. 
MODEL II, 16, 12 ADD $300. 

till systems T9 quin a D.O.S. 

All hard drive systems are fully 
assembled and tested. 

120 DAY WARRANTY 

Use our watts line for a quote 
on any computer product. 



VISA, MASTERCARD, WIRE TRANSFER, CASHIERS CHECK, 
MONEY ORDERS , PERSONAL CHECKS REQUIRE 3 WEEKS 



COMPUKIT 

1 m 800 m 23 7-667 7 order line 
1-7 1 3 m 480 m 6000 technical line 

16206D HICKORY KNOLL 
HOUSTON ; TEXAS 77059 



weight 1 

blood pressure 0 

cholesterol 0 

smoking 2 

Total Rating 13 



The total rating is an algebraic sum of the individual 
scores added to the original total of 10. A rating of 13 is 
considered to represent a moderate to high risk of heart 
disease for the age and sex specified. The computer 
program points out ideal levels for this individual in 
terms of weight (165 pounds versus the 200 pounds 
input), blood pressure (under 120 versus the 159 
computed) and cholesterol (under 199 versus the 249 
computed). It is pretty obvious that quitting smoking 
will help judging from the added risk rating. Using 
modified data, assuming the best possible values yields 



the following result: 

weight -1 

blood pressure -1 

cholesterol -2 

smoking -1 

Total Rating 5 



This is an astounding (and probably unrealistic) 
reduction in overall risk. While it is probably impossible 
to achieve such a change in all areas, the individual may 
be motivated to reduce voluntary factors (weight and 
smoking). 

It is interesting to recompute a result for this same 
ideal individual at 57 years of age. In this case, all of the 
ideal values are input and only age is changed. This 
exercise yields the results: 



weight 0 

blood pressure -5 

cholesterol -1 

smoking -2 

Total Rating 2 



This is another astounding result attesting to the 
value of maintaining good health as we age. 

An illustration using a female yields equally 
interesting results. Here, we assume a 40-year-old 
woman weighing 200 pounds with unknown blood 
pressure and cholesterol levels, smoking more than one 
pack of cigarettes per day. This program yields: 



weight 2 

blood pressure 1 

cholesterol 1 

smoking 2 

estrogen use 1 

Total Rating 17 



In this case, estrogen use was assumed resulting in an 
addition of 1 point. The overall score of 17 represents a 
high risk of heart disease. The program suggests 
reducing weight, blood pressure, cholesterol and 
smoking, as expected. It is interesting to reduce weight 
alone and observe the results. The recommended weight 
for this woman’s height is 112 pounds and inputting this 
weight yields the result: 



weight -2 

blood pressure -2 

cholesterol -1 

smoking 2 

estrogen 1 

Total Score 8 
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This is a significant reduction reflecting the fact that 
weight reduction typically results in a reduction in blood 
pressure and cholesterol. It should be recalled that these 
values are computed estimates and actual expected 
values for these factors may not reduce as dramatically 
as predicted here. 

Analysis of Rating Factors 

The rating factors used in this program were 
computed from data provided by the American Heart 
Association. This data is interesting to examine, in 
itself. Table 1 summarizes adjustment values for sex 
and age. 

A number of interesting conclusions can be drawn 
from this data (presumably based upon some type of 
research). First, the age of 55 is a critical age where there 
is a significant change in risk factors. Also (and 
expectedly), there is a significant difference between 
male and female data. It is of interest that females do not 
always have the edge in cardiac affairs. Note that the 
highest blood pressure values (>159) show females 
suffering a higher penalty than males. This is also true, 
but less pronounced, in the high smoking category. 

In a couple of cases, things get better with age. For 
females in the highest weight category, the penalty is 
lower after 55 years of age. This is more pronounced for 
men in the lowest blood pressure category over 55 years 
of age. All the men reading this should conclude that the 
single most important factor to control as they age is 
their blood pressure. 

The smoking data shows some interesting results 
also. It can be noted that smoking less than a pack a day 
is really critical and penalties go up significantly after 
this amount. Also, if you are a male over 55 and smoke, 
you actually get credit! Perhaps this is due to the fact 
that since you have survived that long while smoking, 
your old ticker must be pretty strong. 

Conclusion 

While this program is fairly simple, it does provide 
some ponderable results. Of course, like any other 
analysis, the output is only as good as the input. We all 
should be more aware of our cardiac health and the 
attendant risk factors. As noted earlier, the risk factors 
here are not comprehensive and ultimately all of us 
should discuss our health with a qualified physician 
before trying to draw meaningful conclusions. However, 
if this program encourages a few people to check 
blood pressure and, perhaps, lose some weight, it is well 
worth it. 



RISKO Program Listing 



100 CLS 

110 PRINTTAB( 8 ) "WELCOME TO RISKO - - A R 
ATING OF YOUR HEART" 

120 PRINT TAB( 18) "PROGRAMMED BY DAVE C 
LAPP" 

130 PRINT : PRINT 

140 PRINT TAB(5) "THE RATING WAS DEVELOP 



Continuous 
Checks, 
Statements, 
and Invoices 

for Desk-Top Computers 

• Compatible with software from over 300 
sources. Or program to NEBS standard 
forms yourself. 

• Continuous Micro-Perf™ Letterheads and 
matching continuous Envelopes provide 
a clean, trim look. 

• Also, diskettes, continuous labels, other 
supplies and accessories. 

• Our policy is to process forms printed 
with your name within 6 working days. 
Then ship direct to you (We pay shipping 
charges on prepaid orders). 



QUALITY PRODUCTS 
SMALL QUANTITIES AT LOW PRICES 
MONEY-BACK GUARANTEE 

FREE Full-color, catalog 

fast service by mail or phone 

TOLL FREE 1 + 800-225-9550 

(Mass, residents 1 + 800-922-8560) 
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PACKAGE # 
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PLAN TO PURCHASE WITHIN: ■ 


| YOUR LINE OF BUSINESS 


NUMBER OF EMPLOYEES 



I MOST OFTEN USE MY COMPUTER FOR: 

□ WORD PROCESSING D ACCOUNTING CIS OTHER 
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ED BY THE AMERICAN HEART ASSOCIATION" 

150 PRINT TAB( 20 ) "AND PRINTED IN MANY N 
EWSPAPERS" : PRINT 

160 PRINT "EVERYONE BEGINS THE RATING WI 
TH A SCORE OF 10 AND POINTS ARE AD-DED O 
R SUBTRACTED FROM YOUR SCORE BASED UPON 
SEVERAL RECOGNIZED RISK FACTORS."; 

170 PRINT" THE RISK FACTORS RATED HERE 
ARE WEIGHT, SYSTOLIC BLOOD PRESSURE, BLO 
OD CHOLESTEROL LEVEL, SMOKING, AND (FOR 
WOMEN) ESTROGEN USE. " ; 

180 PRINT" THIS PROGRAM WILL COMPUTE YOU 
R SCORE AND POINT OUT AREAS WHERE YOU SH 
OULD IMPROVE." SPRINT 

190 INPUT "ARE YOU READY? IF SO PRESS 'E 
NTER' ";Z$:CLS 

200 INPUT "PLEASE INDICATE YOUR GENDER ( 
MALE=M,FEMALE=F) ";A$:GOSUB 1510 
210 PRINT"THIS PROGRAM ONLY ACCEPTS HEI 
GHTS IN MEN FROM 61 TO 78 INCHES AND 56 
TO 73 INCHES IN WOMEN"; 

220 PRINT ". ENTERING HEIGHTS OUTSIDE OF 
THESE RANGES WILL GENERATE AN ERROR MES 
SAGE." 

230 INPUT "PLEASE ENTER YOUR HEIGHT IN I 

NCHES WITHOUT SHOES" ;C 

240 IF A$="M" AND C<61 PRINT "ERROR, OUT 



OF RANGE": STOP 

250 IF A$="M" AND 078 PRINT "ERROR, OUT 

OF RANGE": STOP 

260 IF A$="F" AND C<56 PRINT "ERROR, OUT 
OF RANGE": STOP 

270 IF A$="F" AND 073 PRINT "ERROR, OUT 
OF RANGE": STOP 

280 INPUT "PLEASE ENTER YOUR WEIGHT IN P 
OUNDS (ASSUMING YOU ARE WEARING OR-DINAR 
Y STREET CLOTHING" ;B 

290 INPUT "PLEASE ENTER YOUR AGE (TO THE 
NEAREST YEAR)"; AG 
300 IF A$="F" THEN 720 
310 K=C-60 
320 FOR L=1 TO K 
330 READ T1,T2,T3 
340 NEXT L 

350 IF B<T1 THEN WT=-2:P=119:CC=199:GOTO 
410 

360 IF B<T2 AND AG<=54 THEN WT=-1:P=139: 
CC=224:GOTO 410 

370 IF B<T2 AND AG>54 THEN V7T=0 : P=139 : CC 
=224:GOTO410 

380 IF B<T3 THEN WT=1 :P=159:CC=249:GOTO 
410 

390 IF AG<=54 THEN WT=2:P=160:CO250:GOT 
O 410 





labeling of X and V axis points using 85 
characters/line. Forecasting future trends 
is possible using line fitting, quadratic, 
and third order linear regression 
analysis. Data smoothing using moving 
averages is also possible. The finished 
graph can be saved on disk or printed 
on any of 20 popular printers. 

The Grafyx Solution package is shipped 
from stock and includes the board, 44 
programs, and a 54 page manual all for 
$299.95. The BIZGRRPH program, 
sample graphs, and manual is $98. 
Shipping is free on pre-paid or COD 
orders. (Tx. res. add 5 % sales tax.) 

®VisiCok/Registef0d TM VsKorp "■■■ 

Micro-Labs, Inc. 214-235-0915 

902 Pinecrest, Richardson, Texas 75080 






Bizgroph Now for Mod III AND 4 

The Grafyx Solution® for your Business 



Powerful Graphics. BIZGRRPH is a 
self-prompting business graphing pro- 
gram designed to work exclusively with 
Grafyx Solution. Micro-Labs' Grafyx 
Solution is a plug-in, clip on board which 
gives you 98,304 points in a 512 x 192 
matrix. Thot's sixteen times os many 
points os a standard Model III! Improve 
your business with dear, accurate 
graphs. Perfect for managers, small 
businessmen and analysts. The BIZ- 
GRRPH package can display Line Graph, 



Bar Chart, Pie Chart, Rrea Plot, 
Histogram Plot, and Scatter Plot. Data 
can be entered from the keyboard or 
disk files - including VisiCalc'. 

Quality Grafyx. Select graph type, 
enter data or file name, select options, 
and a graph is quickly displayed in 
amazingly fine detail. Multiple data sets 
can be combined on one graph. Rnother 
unique feature is the ability to display the 
hi-res screen along with the normal text 
and low-res screen. 

Versatile Grafyx. BIZGRRPH is a 
flexible program providing automatic 
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400 WT=3:P=160:CC=250 

410 GOSUB 1510 SPRINT "YOUR SCORE ADJUSTM 
ENT FOR YOUR WEIGHT IS";WT 
420 INPUT "ENTER THE ACTUAL SYSTOLIC PRE 
SSURE OR A ' 0";Q 

430 IF Q=0 PRINT "YOUR ASSIGNED BLOOD PR 
ESSURE IS"?P:GOTO 450 
440 P=Q 

450 IF P<=119 AND AG<=54 THEN BP=-1 :GOT 
0 520 

460 IF P<=119 AND AG>54 THEN BP=-5:GOTO 
520 

470 IF P<=139 AND AG<=54 THEN BP=0 sGOTO 
520 

480 IF P<=139 AND AG>54 THEN BP=-2 sGOTO 
520 

490 IF P<=159 AND AG<=54 THEN BP=0 sGOTO 
520 

500 IF P<=159 AND AG>54 THEN BP= 1 sGOTO 
520 

510 IF AG<=54 THEN BP=1 ELSE BP=4 

520 PRINT "YOUR SCORE ADJUSTMENT FOR BLO 

OD PRESSURE IS"; BP 

530 PRINTS INPUT"ENTER YOUR BLOOD CHOLEST 
EROL LEVEL OR A '0'";Q 

540 IF Q=0 PRINT"YOUR ASSIGNED BLOOD CHO 
LESTEROL LEVEL IS";CCsC=CCsGOTO 560 
550 G=Q 

560 IF C<=199 AND AG<=54 THEN BC=-2 sGOT 
O 610 

570 IF C<=199 AND A3>54 THEN BO-1 sGOTO 
610 

580 IF C<=224 THEN BO-1 sGOTO 610 
590 IF C<=249 THEN BO0 sGOTO 610 
600 IF AG<=54 THEN BOl ELSE BO0 
610 PRINT "YOUR SCORE ADJUSTMENT FOR CHO 
LESTEROL IS";BC 

620 PRINTS INPUT"ENTER THE NUMBER OF PACK 
S OF CIGARETTES YOU SMOKE PER DAY. '0' 

IF NONE, ' 1 ' IF LESS THAN A PACK A DAY, 
'2' IF EXACTLY A PACK A DAY, '3* IF MORE 
THAN A PACK A DAY";S 
630 IF S=0 AND AG<=54 THEN SM=-1 sGOTO 7 
00 

640 IF S=0 AND AG> 54 THEN SM=-2 sGOTO 700 
650 IF S=1 AND AG<=54 THEN SM=0 sGOTO 70 
0 

660 IF S=1 AND AG>54 THEN SM=-ls GOTO700 
670 IF S=2 AND AG<=54 THEN SM=ls GOTO 70 
0 

680 IF S=2 AND AG>54 THEN SM=0s GOTO 700 

690 IF AG<=54 THEN SM=2 ELSE SM=3 

700 PRINT "YOUR SCORE ADJUSTMENT FOR SMO 

KING IS";SM 

710 GOTO 1180 

720 FOR L=38 TO C 

730 READ T1,T2,T3 



IT’S SIMPLE 



CALL & SAVE MONEY! 




TELEMARKETING COMPUTERS AND 
EQUIPMENT TO SAVE YOU MONEY 



SINCE 1978 





• PURE RADIO SHACK EQUIPMENT • 

% 

AND 

MORE 

DISCOUNT 

***CALL FOR PRICES*** 
ON COMPLETE LINE 



PRINTERS AND EQUIPMENT 



EPSON 

OKIDATA 

gmm s ^h 

UlffLJ CORONA 

\feibatim* 







.IL 

ID 



muroNiti - me 

C. Itoh 

(D Hayes* 



Novation 



commodore 

WE SELL IBM P.C. COMPATIBLES! 



Since 1978 

• PIONEER IN DIRECT TO 
CONSUMER SALES OF MICRO 
COMPUTERS AND ELECTRONICS 

• NAME BRAND PRODUCTS 

• LARGE INVENTORIES 

• NEXT DAY SHIPMENT ON 
MOST PRODUCTS 

FREE UPON REQUEST 

• DISCOUNT PRICE LIST AND 

INFORMATION KIT 

• COPY OF MFR'S WARRANTY 







e s t Friend 9 ^ 



Micro Management 
Systems, Inc. 

2803 Thomasville Road East 
Cairo, Georgia 31728 • - 

(912) 377-7120 ff ? 
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The Company That Started It All 



r 



SCOTT ADAMS ADVENTURES 



When you sit down to a Scott Adams Adventure, anything can happen, and it usually does! Because 
with a Scott Adams Adventure, the fantastic is as close as your computer and your own imagination. 
From mysterious castles to nuclear reactors, from ghost towns to strange new worlds, the thirteen 
Scott Adams Adventures will provide you with hours of facinating Adventuring. 

For your TRS-80 Models I, III, & IV and CoCo. 





A 




AIRLINE 

Enter the intriguing world of high finance where even 
the sturdiest of corporate empires can dissolve as 
quickly as they’re built. AIRLINE is a no-holds-barred 
strategy game for one to four players. 

For your TRS-80 Models I, III, & IV and CoCo. 



AREX 

Enter and neutralize the enemy’s territory 
while avoiding the lethal alien ships. AREX 
features multiple score levels for one or 
two players, and high scores can be saved, 
too! 

For your TRS-80 

Models I, III, & IV and CoCo. 






THE ELIMINATOR 

Your mission unfolds at breakneck pace as you pilot 
your Eliminator craft over alien terrain, and square off 
against hoards of marauding enemy ships. THE 
ELIMINATOR features realistic sounds, superlative 
graphics, running high score and joystick compatiblity. 
For your TRS-80 Models I, III, & IV and CoCo. 



FIRECOPTER 

Three-dimensional realism gives you an added edge as 
you fight to extinguish as many fires as possible before 
the whole city goes up in flames. Joystick-controlled, 
for one or two players. 

For your TRS-80 CoCo. 

LASER BALL 

Fill the LASER BALL maze completely with dots while 
you avoid the deadly destructoids that inhabit this 
lethal network of twists and turns. Great sound, great 
graphics and running high score — also joystick com- 
patible. 

For your TRS-80 Models I, III, & IV. 




REAR GUARD 

Protect your mothership from deadly waves of 
Cyborgs! REAR GUARD flaunts the full range 
of TRS-80’s sound capabilities, and features 
crisp, fluid graphics you’ll love. All the options 
are here — multi-level, running high score, and 
joystick compatibility. 

For your TRS-80 Models I, III, & IV and CoCo. 



SEA DRAGON 

Secure all hatches! Prepare to dive! SEA 
DRAGON puts you in control of a nuclear sub 
that’s armed to the hilt with deadly missiles 
and torpedoes. Guide your sub through the 
dangers of the ocean floor with your joystick. 
Two-player option — great sounds and incredi- 
ble graphics. 

For your TRS-80 Models I, III, & IV and CoCo. 



STRATOS 

STRATOS — a kaleidoscopic explosion of other-worldly 
graphics and sounds that puts YOU in total control of 
the only weapon capable of destroying the attacking 
alien ships. For one or two players. Includes high-score 
save! 

For your TRS-80 Models I, III, & IV. 



TRIAD 

An incredible game scenario! Pit your skills against any of nine waves of 
weird aliens. You score on a master TIC TAC TOE board — three in a row 
and you advance to the next level. The best yet in Color Computer arcading! 
Game freeze, running high score, joystick option and more! 

For your TRS-80 CoCo. 








JXtyldventur€ t Visit your local dealer today , or call us at 



INTERNATIONAL 



A DIVISION OF SCOTT ADAMS. INC 



BOX 3435 • LONGWOOD, FL 32750 
(305) 862-6917 



1 - 800 - 327-7172 






dventurt? 

INTERNATIONAL 



ADVENTURES 



SPOOK HOUSE/TOXIC DUMPSITE 

These Adventures feature over 50 screens of sharp, 
high-quality graphics, real-time action, game save, and 
accept FULL sentences. Set in a scary haunted house 
or a threatening dumpsite for toxic materials, either 
Adventure will challenge your skills and abilities. 

For your TRS-80 Models I, III, & IV. 



NIGHTWALKER 

Can you collect enough evidence to crack a dangerous 
underground heroin ring without losing your life? 
NIGHTWALKER takes you to the sleazy parts of town, 
where your only protection is your own good sense — 
and luck. A text-oriented Adventure with a sprinkling of 
graphics, ready to enthrall you for hours. 

For your TRS-80 Models I, III, & IV. 



SLEDGE OF RAHMUL/MERLIN’S TREASURE 

Outstanding graphics and real-time action (on SLEDGE) 
give these Adventures the kind of features you’ve come 
to expect from Adventure International. Hone your 
Adventuring skills on these two winners. Both accept 
full sentences, have extensive vocabularies, a game 
save feature, and — best of all — they’re GREAT Adven- 
tures! 

For your TRS-80 Models I, III, & IV. 



STONE OF SISYPHUS 

There are adventures and treasures aplenty in STONE 
OF SISYPHUS. You are given three lives — but will that 
be enough? Even with lots of “prime attributes” (luck, 
strength, charisma), you may wish you had nine! 

For your TRS-80 Models I, III, & IV. 






STRATEGY 

SEARCH FOR ELSOLIADO 

SEARCH FOR ELSOLIADO is an interstellar quest for 
an uncharted world. ELSOLIADO cannot be found by 
chance; you must purchase information concerning its 
whereabouts at exorbitant prices from deep space Star- 
bases. A real-time strategy/action game with graphics, 
sound, and game save. 

For your TRS-80 Models I, III, & IV. 




COMMBAT 

Finally! A battle game that lets players on different 
computer systems pit their skills against one another. 
All you need is a friend with an APPLE, ATARI, or 
TRS-80 and a full-duplex modem (or a modem eliminator 
cable if the computers are in the same room). Your mis- 
sion: Find and destroy the enemy’s base before he 
discovers and annhilates yours. 

For your TRS-80 Models I, III, & IV. 




UTILITY 




DISKEY 

DISKEY Is a powerful utility which allows you to ex- 
amine, modify, or copy almost any disk, sector by sec- 
tor. DISKEY is designed to help you recover killed files 
and rescue data from crashed disks. Using DISKEY is 
also a great way to learn how your disk system 
operates. 

Included with DISKEY is a diagnostics program that 
tests all major functions and elements of your Color 
Computer system. 

For your TRS-80 CoCo. 






JYYM PEARSON ADVENTURES 



ESCAPE FROM TRAAM 

A routine patrol assignment leads to disaster when your 
spacecraft’s engine fails. You make a forced landing on 
the most hostile planet in the galaxies. No one yet has 
lived long enough to reveal the secrets of an ESCAPE 
FROM TRAAM. 

For your TRS-80 Models I, III, & IV and CoCo. 



EARTHQUAKE: SAN FRANCISCO 1906 

Buildings crumble to dust, and the earth opens to 
swallow what remains. You stumble through the ruins 
of what, just last night, was beautiful San Francisco. 
Time is running out — which way do you go? 

For your TRS-80 Models I, III, & IV and CoCo. 







THE CURSE OF CROWLEY MANOR 

It’s 1913. You’re Inspector Black of Scotland Yard, and 
until today you thought you’d seen it all. However, 
nothing you have ever experienced prepared you to 
solve the horrifying mystery of THE CURSE OF 
CROWLEY MANOR. 

For your TRS-80 Models I, III, & IV and CoCo. 



SAIGON: THE FINAL DAYS 

Vietnam, May 1975. Crashing through the jungle 
foliage, you hear the distant fire of the NVA camp 
guards. You’ve escaped — for now. Uncle Sam is pull- 
ing out, and if you don’t reach Saigon soon, you’ll be left 
behind 

For your TRS-80 Models I, III, & IV and CoCo. 








Call today for your free catalog! 

1 - 800 - 327-7172 










EPROM 

PROGRAMMER 



110V AC 



7 Bauds 



Devices: 

(5 volt only) 
2716, 32, 32A 



25XX series 



& MORE ! 



Allows read, copy, verify 
Personality by jumpering 



( 805 ) 496-0981 



TECHNOLOGY 



2509 THOUSAND OAKS BLVD. ♦ SUITE 218 
THOUSAND OAKS. CALIFORNIA 91562 



Where is that 
Movie?’ 

Find it quickly, easily with 

ITISOTKPE 




MO ® m 



Takes the work out of managing 
your video library: easy to use • 
stores over 1 ,000 titles • prints 
numbered labels • lists by tape and/ 
or title • searches by tape, title, or 
performer • very fast • ready to use 

_ TAPE 

\ 1 TRACKER is a 

real time saver, 

I / / / and the price is 

right. Make 
your life easier, 
order today, 
toll free: 

(800)824-7888, 

oper. 577 

EQUIPMENT: 
TRS80 I or III, 
48K, 2 disks 

SPECIAL 
INTRODUCTORY 
PRICE: 

$ 29.95 



Dep t. B, Box 560 
No. Hollywood, CA 91603 
(213)764-3131 

TERMS: VISA, MC, checks, COD. Please add $2.00 shipping in U.S. or Canada, 
$5.00 overseas, sales tax in Ca. Most orders piled within 48 hrs. 
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740 NEXT L 

750 IF B<T1 THEN WO-2:P=119:CO199:G0T0 
810 

760 IF B<T2 THEN WT=-1 :P=139:CC=224:GOTO 
810 

770 IF B<T3 AND AG<=54 THEN WT=1:P=159:C 
0249: GOTO 810 

780 IF B<T3 AND AG>54 THEN WO0:P=159:CC 
=249: GOTO 810 

790 IF AG<=54 THEN WT=2 :P=160:CO250:GO 
TO 810 

800 WT=1:P=160:CO250 

810 GOSUB 1510: PRINT "YOUR SCORE ADJUSTM 
ENT FOR WEIGHT IS";WT 

820 PRINT: INPUT"ENTER YOUR ACTUAL SYSTOL 

IC BLOOD PRESSURE OR A '0"';Q 

830 IF Q=0 PRINT "YOUR ESTIMATED BLOOD P 

RESSURE IS";P:GOTO 850 

840 P=Q 

850 IF P<=119 AND AG<=54 THEN BP=-2:G0T0 
920 

860 IF P<=119 AND AG>54 THEN BP=-3:G0T0 
920 

870 IF P<=139 AND AG<=54 THEN BP=-1 :GOT 
0 920 

880 IF P<=139 AND AG>54 THEN BP=0:GOTO 9 

20 

890 IF P<=159 AND AG<=54 THEN BP=0 :GOTO 
920 

900 IF P<=159 AND AG>54 THEN BP=3:G0T0 9 

20 

910 IF AG<=54 THEN BP=1 ELSE BP=6 

920 PRINT "THE ADJUSTMENT FOR BLOOD PRES 

SURE IS"; BP 

930 PRINT: INPUT" ENTER YOUR BLOOD CHOLEST 
EROL LEVEL OR A '0'";Q 
940 IF 0=0 PRINT "YOUR ASSIGNED BLOOD CH 
OLESTEROL LEVEL IS";CC:C=CC:GOTO 960 
950 C=Q 

960 IF C<=199 AND AG<=54 THEN BG=-1:G0T0 
1030 

970 IF C<=199 AND AG>54 THEN BC=-3: GOTO 
1030 

980 IF C<=224 AND AG<=54 THEN BO0:GOTO 
1030 

990 IF C<=224 AND AG>54 THEN BO-1:GOTO 
1030 

1000 IF C<=249 AND AG<=54 THEN BO0 :GOT 
0 1030 

1010 IF C<=249 AND AG>54 THEN BOl:G0T0 
1030 

1020 IF AG<=54 THEN BOl ELSE B03 
1030 PRINT "YOUR ADJUSTMENT FOR CHOLESTE 
ROL IS" ;BC 

1040 PRINT: INPUT"ENTER A VALUE FOR SMOKI 
NG, '0' IF NONE, '1' IF LESS THAN 1 PAC 
KPER DAY, '2' IF EXACTLY A PACK A DAY, ' 
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3' IF MORE THAN A PACK A DAY";S 
1050 IF S=0 AND AG<=54 THEN SM=— 1 :GOTO 
1110 

1060 IF S=0 AND AG>54 THEN SM=-2:G0T0 11 

10 

1070 IF S=1 AND AG<=54 THEN SM=0 :GOTO 1 

110 

1080 IF S=1 AND AG>54 THEN SM=-1:G0T0 11 
10 

1090 IF S=2 THEN SM=1:G0T0 1110 
1100 IF AG<=54 THEN SM=2 ELSE SM=4 
1110 PRINT "YOUR SCORE ADJUSTMENT FOR SM 
OKING IS";SM 

1120 INPUT“HAVE YOU EVER TAKEN ESTROGEN 
FOR FIVE OR MORE YEARS IN A ROW"?E$ 

1130 INPUT" ARE YOU TAKING ESTROGEN NOW"; 
N$ 

1140 IF AG<=35 AND E$="N"AND N$="N" THEN 
ES=0: GOTO 1170 

1150 IF AG<=54 AND E$="Y" OR N$="Y" THEN 
ES=1: GOTO 1170 

1160 IF AG>54 AND E$="Y" OR N$="Y" THEN 
ES=3 

1170 PRINT "YOUR ADJUSTMENT FOR ESTROGEN 
USE IS";ES 

1180 CLS: PRINT "WE CAN NOW COMPUTE YOUR 
OVERALL RISKO RATING" 

1190 PRINT: PRINT "IN SUMMARY, YOUR INDI 
VIDUAL SCORES WERE" 

1200 PRINT "WEIGHT ADJUSTMENT" ;WT: PRINT" 
BLOOD PRESSURE ADJUSTMENT" ; BP: PRINT "CHO 
LESTEROL ADJUSTMENT" ;BC: PRINT "SMOKING A 
DJUSTMENT" ; SM 

1210 IF A$<>"M" PRINT "ESTROGEN ADJUSTME 
NT";ES ELSE ES=0 

1220 TS=10+V/T+BP+BC+SM+-ES : PRINT : PRINT" YO 
UR TOTAL SCORE IS";TS 

1230 PRINT: IF TS<4 PRINT "YOU GET AN 'A' 
FOR THE COURSE, YOUR HEART GETS THE BES 
T RATING": GOTO 1280 

1240 IF TS<=9 PRINT: PRINT "YOU HAVE A LO 
W TO MODERATE RISK OF HEART DISEASE FOR 
YOUR AGE AND SEX, BUT THERE IS SOME ROOM 
FOR IMPROVEMENT": GOTO 1280 
1250 IF TS<=14 PRINT: PRINT "YOU HAVE A M 
ODERATE TO HIGH RISK OF HEART DISEASE FO 
R YOUR AGE AND SEX, WITH CONSIDERABLE RO 
OM FOR IMPROVEMENT ON ALL FACTORS" : GOTO 
1280 

1260 IF TS<=19 PRINT: PRINT "YOU HAVE A H 
IGH RISK OF DEVELOPING HEART DIEASE FOR 
YOUR AGE AND SEX, WITH A GREAT DEAL OF R 
OOM FOR IMPROVEMENT ON ALL FACTORS" :GOTO 
1280 

1270 PRINT: PRINT "YOU HAVE A VERY HIGH R 
ISK OF DEVELOPING HEART DISEAGE FOR YOUR 
AGE AND SEX AND SHOULD TAKE IMMEDIATE A 




CRBj^HHs 

TRSTUM Tape Reproduction System TRSDUM 

* Tape or Disk * 

Utility for Model 1, 3, 4 

• Read, Write, Verify tape or disk files 

• Read and Write any TRS-80 std. protocol tape 

• Automatically identifies file type (e.g. BASIC, 
SYSTEM) 

• Change tape file name as desired 

• Change speed of tapes, if desired (Mod 3, 4) 

• Select cassette port 0 or 1 (Mod 1) 

• OFFSET memory load addresses automatically 

• UNOFFSET load addresses, if offset 

• Displays full operational status plus . . . 

- diskette directory 

- load map (start-end address sets) 

- Name, Length, Format of files loaded 

- Start, End, Execute addresses of programs 

- Error messages, if any 

• Automatic tape/disk protocol conversion 

• Single disk-drive copy capability 

• Archive disk files on tape to save diskettes 

• Run tape programs from disk 

(Tape SCRIPSIT, EDTASM, games, etc.) 

• All disk features require TRSDUM 

TRSTUM — for cassette-based systems ONLY $16.95 
TRSDUM — for TRSDOS disk systems ONLY $17.95 

Please specify Model 1, 3 or 4 
and add $2.00 postage and handling. 

Send check, money order or SASE to 

CRB Mic rotools 
“Software mEsSIs for the 80’s” 

14835 N. First Ave. 

Phoenix, A Z 85023 

TRS-80, TRSDOS, SCRIPSIT are trademarks of TANDY CORP. 
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UNITED SOFTWARE 
ASSOCIATES 

PRESENTS 

ULTRA TERM 



A FULL FEATURED TERMINAL PROGRAM 

The Ultra Term communications package is one of the easiest to 
use and most versatile communications programs available for the 
TRS-80. It includes a full featured intelligent terminal program, with 
all the popular features of competing programs costing two to three 
times as much, and some new features that can’t be found 
anywhere else at any price. Ultra Term also includes a self 
relocating host program, and hex conversion utilities for bulletin 
board downloading. Some of Ultra Terms unique features are: 

• Supports both manual and auto dial modems. 

• Exclusive Ultra Term direct to disk file transfer mode, allows 
unattended operation at the receiving computer. 

• Exclusive split screen feature allows simultaneous two way 
communications without confusion. 

• Line printer support with a IK print buffer. 

• Half and full duplex support. 

• Universal ASCII format file transfer with a 33K Buffer. 

• A full featured host program. 



• ULTRA TERM $59.95 

• INFOEX 80 $99.95 

• M TERM $69.95 

• COMMBAT $44.95 

• MODEM GAMES $19.95 



• LYNX MODEM $249.00 

• ANCHOR 1-300 $99.00 

• HAYES 300 $249.00 

• HAYES 1200 $619.00 

• ORCHESTRA 85/90 $89.00 

• PIANO SOFTWARE $34.95 



ORDERS 305/965-3496 BBS 305/842-2687 
COD ADD $3.00 TECHNICAL INFOR. 305/842-8805 (5-9 E.S.T.) 
734 Flamingo Way, North Palm Beach, FL 33408 



MAYDAY software is proud to announce the release of a 
modification program for Radio Shack’s SCRIPSIT that will 
enhance its usefulness and value to every owner. 



□ □□□□□□□□□ SCRIBE/CMD □□□□□□□□□□ 

With SCRIBE, you can improve your efficiency using the 
TRS-80 Model I or III with your standard SCRIPSIT word- 
processing system. You will be able to use additional screen 
graphic characters that may help to emphasize your 
“special message”. 

Now these characters ( ) < > = ” / 

Can also look like [ ] { } \ 

In both your screen text and your hard copy printout. . .The 

characters were in your machine anyway SCRIBE just 

LETS YOU UTILIZE THEM. Along with these features, you 
get about 20 more. . .such as: 

Current line numbers and position in text. . . .page scrolling 
forward and backward. . . .directory readouts with return to 
text. . .ability to kill files from SCRIBE. . . .very fast cursor 
control through text words for locating and editing. . . .Hi 
memory observed in both model I and III. . . .auto load of 
specific text on startup. . . .and much MORE. . . . 

Available on TRSDOS 2.3, 1.3 or NEWDOS-80 formatted 
disks with instructions for modification and use. 

Introductory price for SCRIBE (includes shipping) . . . .$29.95 

* Apparat, Inc. 

sydsy software 

P.O. Box 66 • Rock Creek Road 
Phillips, Wisconsin 54555 
(715) 339-3966 
VISA/M-C WELCOME 
Personal checks require additional 14 days 
• 1 All prices include shipping 





Risko 



CTION ON ALL RISK FACTORS" : GOTO 1280 
1280 INPUT "PRESS ENTER TO REVIEW YOUR D 
ATA";Z$:CLS 

1290 PRINT "YOUR WEIGHT WAS REPORTED AS 
";B; "THE BEST WEIGHT FOR YOU IS";T1;:PRI 
NT"OR LESS" 

1300 PRINT: PRINT "YOUR SYSTOLIC BLOOD PR 
ESSURE WAS REPORTED AS";P;"THE BEST VALU 
E FOR YOUR IDEAL WEIGHT IS 119 OR LESS" 
1310 PRINT: PRINT "YOUR CHOLESTEROL LEVEL 
WAS REPORTED AS";C;"THE BEST VALUE FOR 
YOUR IDEAL WEIGHT IS 199 OR LESS" 

1320 PRINT: PRINT "YOU REPORTED"; 

1330 IF S=0 PRINT " NO SMOKING, WHICH IS 
GREAT"; 

1340 IF S=1 PRINT " LESS THAN A PACK A D 
AY"; 

1350 IF S=2 PRINT " A PACK A DAY"; 

1360 IF S=3 PRINT " MORE THAN A PACK A D 
AY"; 

1370 PRINT" CLEARLY, NO SMOKING IS THE 
WAY TO GO" 

1375 IF A$="M" GOTO 1400 ELSE PRINT: INPU 
T"PRESS ENTER TO REVIEW NEXT PAGE";Z$:CL 
S 

1380 IF A$="F" AND N$="Y" PRINT: PRINT "W 
HILE YOU ARE USING ESTROGEN NOW, IT'S US 
E IS A NEGATIVE FACTOR IN CARDIAC HEALTH 

II 

1390 IF A$="F" AND E$="Y" PRINT : PRINT "W 
HILE YOU HAVE USED ESTROGEN, IT’S USE CO 
ULD BE A NEGATIVE FACTOR IN CARDIAC HEAL 
TH" 

1400 PRINT: PRINT "YOU MAY WANT TO RUN TH 
E PROGRAM AGAIN WITH THE IDEAL VALUES AB 
OVE TO SEE YOUR IMPROVEMENT. BEST OF ICA 
RDIAC HEALTH": END 

1410 DATA 123,148,173,126,152,178,129,15 
6,182,132,160,186 

1420 DATA 135,163,190,139,168,196,144,17 
4,203,148,179,209 

1430 DATA 152,184,214,157,190,221,161,19 
4,227,165,199,232 

1440 DATA 170,205,239,175,211,246,180,21 

7,253,185,223,260 

1450 DATA 190,229,267,195,235,274 

1460 DATA 101,122,143,103,125,146,106,12 

8,150,109,132,154 

1470 DATA 112,136,158,115,139,162,119,14 
4,168,122,148,172 

1480 DATA 127,154,179,131,158,185,135,16 
3,190,139,168,196 

1490 DATA 143,173,202,146,178,207,151,18 

2,213,155,187,218 

1500 DATA 159,191,224,163,196,229 

1510 CLS : PRINT0540, "THANKYOU" :FOR M=1 T 

O 500: NEXT M:CLS:RETURN 



52 Basic Computing 



Refer to advertiser index for reader service number 



NEWBASIC 

Adds over 40 commands to Disk BASIC 






“Of all the software packages I’ve purchased since I bought my 
TRS-80* in Dec. 78, this is the best.” — R. Hunter, Roswell, 



Customize NEWBASIC— include only 
those commands you need. 

Over a dozen easy-to-use and powerful 
graphics commands (e.g. , DRAW, LINE, 
CIRCLE, PAINT). 

Produce sound for music & effects. 
RS-232 initialization & I/O. 



Pre-defined and definable keys. 
Disk-based spooler/ despooler. 

Execute strings, label lines, 2-byte 
PEEK/POKE, restore to any DATA 
line, block memory move, set 
hi-mem, and much, much more. 

70 page manual; summary card. 



“NEWBASIC is a very useful tool for anyone programming in BASIC . . . At $39.95, 
NEWBASIC offers a lot for the money. " — Basic Computing; July, 1983 

“Why weren’t some of NEWBASIC's commands part of standard (Disk) BASIC?" 

— R. Haley; Castro Valley, CA 

“NEWBASIC is easy and fun to work with. Within hours we were creating stunning high 
speed graphics and interesting sound effects. I’d recommend NEWBASIC to anyone. ” 

— J. Ryan; Mt. Vernon, IL 

Now NEWBASIC’s more powerful than ever! For a very small, one-time fee, you can 
include our “execute only” version of NEWBASIC along with your programs. Now anyone 
can run your NEWBASIC programs— even if they don’t own NEWBASIC! 




The Collector 

Improved 
Garbage Collector 



j^Sp^The Analyst 

Helps speed up 
BASIC programs! 



Eliminate long garbage collec- 
tion (string compression) 
delays! The Collector uses 
only 500 bytes, plus 2 bytes 
per string (during collection). 
Use it with almost any BASIC program, without changing a thing! 

Just look at what The Collector can do, then decide: 





Duration (secs) 


Improvement 


# strings 


ROM The Collector 


(x faster) 


250 


12.1 0.7 


17.3 


500 


46.3 1.6 


28.9 


1000 


180.6 3.6 


50.2 


2000 


713.3 7.8 


91.4 




(Typical garbage collection delays.) 






Speed up most BASIC pro- 
grams by 15-50%. The 
Analyst makes it easy. And 
you can use It on commercial 
software, as well as your own. 

Just run your program while The Analyst “analyzes” it. After 
displaying the results, you add 1 or 2 simple lines to your program. 
The changes enable BASIC to find the frequently used variables 
more quickly, speeding up your program! 

Why settle for slow? Get The Analyst, and speed it up! 



Juki 6100 — $550.00 Daisywheel Printer 

Proportional spacing, 10, 12, 15 CPI, 18 CPS. Bold, underline, superscript, etc. Uses 
Diablo 630 codes. The best printer for the price! 

Centronics parallel $550.00 ($583.00 in CA) 

Serial $600.00 ($636.00 in CA) 

Printer terms: Add $10.00 shipping. Credit card orders add 3.5%. US orders only. 



NEWBASIC (Model l/lll disk, 48K) $39.95 ($42.95 in CA). 

"Execute only” option $ 9.95 ($10.55 in CA). 

The Collector (Model l/lll disk) $24.95 ($26.45 in CA). 

The Analyst (Model l/lll disk) $24.95 ($26.45 in CA). 

Some DOS’s require 2 drives by installation. Compatible with most DOS's. Diskettes 
are not copy protected. 

Terms: Check, money order, Visa, M/C, and C.O.D. ( + $2.00). Add $2.50 ship- 
ping in US & Canada, $5.00 elsewhere (US funds only). 



“MSA — Making excellence affordable” 



Modular 

Software 

wyaam Associates 



209 18th Street 
Huntington Beach, CA 92648 
(714) 960-6668 







VISA 





Phone for the name of the dealer nearest you, or order directly from us. 

Phone orders (Visa, M/C, & C.O.D. only) accepted 24-hours (manned 8-5, M-F). 

DEALER INQUIRIES INVITED. 
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Model 4 hints and tricks 



Improvements you won't find explained in the 
manual: sound, speed, 128K, and a pilot light 

Model 4 



By now, you have seen many 
articles about the new Radio Shack 
Model 4. You know that it can have 
128K memory and can run CP/M as 
well as Model III software. It also 
has a few more keys and a whole list 
of other technical features. 

If a person just plain wants to use 
this new machine, they have found 
out that the manual has more holes 
in it than a pound of Swiss cheese. 
Now, I got one of the first of the new 
4’s when they came out, so I expected 
that there might be some informa- 
tion left out and that I would get an 
update of some sort in the mail in a 
few weeks. 

I don’t know why I thought that. 
Now, three months down the road, I 
realize that the only way that the 
early buyers of this machine will get 
this information is to read it in a 
magazine such as Basic Computing. 
I’m going to pass along some of the 
things I have found out as well as a 
few modifications I’ve done to make 
this already good computer a little 
nicer. 

Sound 

Pick up any advertisement for the 
Model 4 and you will see “sound 
from BASIC” as one of the features. 
Now look in the owner’s manual. 
Look in the quick reference guide. 
You might as well look in the dic- 
tionary too, because it isn’t there. 
No, you didn’t get “got,” it really 
does have sound and it’s not a state 
secret. (The new manuals discuss 
this. —Ed) 

The syntax for sound is “SOUND 
T,D” where T is a number between 0 
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and 7 that denotes tone, and the D is 
duration (a 0 to 31 number). Don’t 
forget to space after all BASIC 
words or you’ll get a syntax error. 

10 FOR X = 1 TO 7 
20 READ T,D : SOUND T,D 
30 NEXT 

40 DATA 5, 1,1, 0,1, 0,3, 1,1, 1,4, 1,5,1 
50 END 

As long as I’m talking about 
BASIC, Radio Shack has provided a 
mail list program on the TRSDOS 
disk. This is a good way to show how 
to load and run a program in this 
new BASIC, but it’s not good for 
much else, as there is no way to 
search for a specific name except to 
start at the beginning and search 
one-by-one until you find it. There 
are a few bugs too, such as in line 
4170 when the operator is asked if 
phone numbers are to be printed. 
There is no check for a lowercase 
“n,” so the numbers are printed 
anyway unless you happen to be in 
uppercase. The fix for this is to add 
to the end of the line: ELSE IF 
AN$=“n” THEN 4190. 

If you exit the program at the 
wrong time, you will leave the data 
file open. The next time you try to 
use it, a file can be read but not 
written to. The fix for this is to return 
to DOS by typing SYSTEM and 
enter the command “RESET MAIL- 
LIST/DAT.” (Don’t enter the quotes 
or hyphen.) This will close the file. 
The directory will show an open file 
by displaying a “?” after the 
filename, so if you see that when 
doing a DIR, be sure to close that file. 

One last thing ... If you just have 



Al Mashburn, Gig Harbor, WA 



to run a Model I or III program in 
Model 4 mode, the programs can be 
transferred to the new BASIC, but 
must be saved in ASCII before doing 
so. Load the program in Model III 
BASIC and type: ‘ SAVE 

“PROGRAM/BAS”, A ’. This will 
save the file in ASCII form. If Model 
III TRSDOS is being used, the 
CONV/CMD must be used to get the 
file on a TRSDOS 6.0 disk. If a Model 
I disk is being used, and doesn’t 
seem to be reading well, use the 
REPAIR/CMD program. Make sure 
that you only use REPAIR on a 
backup disk as it may be unreadable 
by the Model I afterward. Of course, 
the BASIC program will have to be 
changed to meet the requirements of 
Model 4 BASIC, such as putting 
spaces between BASIC keywords 
and the new file modes. 

Speed 

There is one advantage to running 
Model III programs on the Model 4 
in Model III mode. (This is going to 
be confusing.) That is the “high- 
speed mode.” Don’t hold me to blame 
if it doesn’t always work, but in 
every operating system I’ve tried, if 
you enter BASIC and ‘POKE 
&H4210,249’, the system will go into 
the 4-Mhz mode and programs will 
run faster. Once this is done, the 
system stays fast even at the DOS 
level. For me, the best improvement 
was to Scripsit. The scrolling and 
cursor movements are much faster. I 
have also used my terminal program 
(MODEM80) in this way and it 
seems to run better with no problems 
to date. 
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128K 

If you already have the upper 64K 
of memory installed, read on. We’ll 
cover one use of this extra memory. 
If not, I’ll tell you why you should. 

Have you seen those spoolers 
advertised in the magazines? A 
spooler is a hardware or software 
device that acts as a buffer, filling up 
with data that is to be printed. The 
problem with the printer is that it 
can’t print as fast as the computer 
can send it data, so the computer has 
to wait while the printer slowly 
accepts data to print. The spooler 
takes the data and stores it, freeing 
the computer to do more important 
things. The average spooler retails 
for $149 (16K version) and more as 
storage goes up. 64K spoolers can 
cost as much as $349 and that’s a lot 
of green stamps. 

Here comes our old friend, Radio 
Shack, with its upper 64K option for 
the Model 4 and one of the things the 
64K does best is to act as a spooler. 
You can see what a bargain the 
option is for $149. For you more 
handy people, I can save you even 
more money. 

The 64K memory kit that Radio 
Shack installs consists of eight 4164 
memory chips and a chip called a 
“PAL” chip. The PAL is the 
controller for the upper memory. The 
4164’s can be obtained from many 
suppliers listed in this magazine for 
about $50 to $60. The PAL can be 
ordered from Radio Shack as part 
#MX-5725 with the notation “26- 
1140 128K PAL” for $30. You can 
save about $50, plus installation. By 
the way, the above information 
came from the LDOS users group on 
CompuServe — a gold mine of 
information. 

Installing the kit is easy, but 
remember that doing so voids the 90- 
day warranty. Remove the top cover 
by putting the computer on its side 
and removing the 10 screws on the 
bottom (don’t miss the one under the 
warranty sticker), and then the one 
on the back. Set the machine right- 
side-up with the keys toward you 
and about one and one-half feet of 
room to the left. Remove the plug 
that goes to the video board, and the 
black ground wire. 

The upper half should be free. Put 
it somewhere safe and out of the 
way. Turn the computer around, so 
you face the rear, and remove the 



large metal shield to expose the 
main logic board. On the right-hand 
side, you will see eight empty sockets 
for the memory chips. Remember 
that the chips are marked for 
direction and go the same way as all 
the rest of the chips on the board. 
You also may have to push the pins a 
little closer together by pushing 
them in on a flat surface to fit the 
sockets. 

After installing all of the memory, 
remove the “jumper” chip near the 
bottom center of the logic board and 
insert the PAL chip in place of it. 
That’s it. You now have 128K total 
memory and, while it can’t be used 
in BASIC, there are a lot of things it 
can do to make life easier. 

As long as the case is open, there is 
something Tandy should have done 
that you can do now. That is a pilot 
light. If reset is pressed without a 
disk in drive zero, the screen is left 
blank and the computer looks like 
it’s off. A small neon light can solve 
this problem. This modification will 
work on a Model III or Model 4. With 
the keyboard facing you, remove the 
screws that hold on the keyboard 
bezel. Drill a 3/16-inch (7mm) hole 
about y 2 -inch from the 64K emblem 
so that the edge of the hole just 
touches the base of the rolled edge 
where the emblem is. Insert the 
mini-neon pilot light (you do have a 
handful of R/S #272-707 pilot 
lights, don’t you?) and tighten the 
nut. If you are unsure of the drill size, 
it’s better to go a little smaller and 
ream the hole for a tight fit. Also, the 
metal part of the keyboard will have 
to be cut out. This can be done with a 
pair of dykes or a small saw, but be 
careful not to pull too hard on the 
keyboard cable. 

Tin the wires of the light and 
solder them to the two leads of the 
power switch nearest you. Trial fit 
the bezel and keyboard back on. The 
light should just fit between the 
power switch and the cut-out you 
just made. If all fits, put all the 
screws back in the bezel, but don’t 
tighten all the way yet. Check the 
reset button operation and clearance 
of the keys to the bezel. You may 
have to push the bezel a little while 
tightening, to get everything to line 
up. 

We are almost done. Just one more 
tip and I’ll let you go for now. This 
one requires a canister-type vacuum 



cleaner. First, go down to 
McDonald’s and have a milkshake. 
Go ahead. You deserve it, but 
remember to save the straw. When 
you get back home, cut out a 2-inch- 
diameter piece of cardboard 
(something pretty stiff). Poke a hole 
in the center with a pencil, push the 
straw through it about an inch, and 
glue it in place. 

When the glue dries, put this 
contraption on the end of the hose of 
the vacuum cleaner and turn it on. 
The suction will hold it in place and 
you now have a way to get all that 
dust and junk out of the inside of the 
computer. I work in a dusty place 
and have to clean the inside of the 
Model III every couple of months. 
Just stay away from the disk drives. 
The straw could do damage if it hit 
the head of your drive. 

Well, that’s it for now. If you have 
any tips of your own, be sure to write 
them down and send them to this 
magazine. There are a lot of good 
ideas out there and we could all use 
them. 
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Shipping & Handling (UPS Brown Label) 
(12-24) J 3°°/ (36-96) *6»/ (250) *12°°/ Misc Items * l » ca 

5 10 00 Minimum Order 

SAME DAY PROCESSING 

1-800-553-0035 Ext 80 
1-800-528-6050 Ext 3005 



ORDERS 
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Information & Inquiries 
1 - 206 - 675-6143 

2665 S. Busby Road 
Oak Harbor. Wash.. 98277 
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Answer Letters, Write Memos 
and Prepare Reports 
Anywhere, Anytime with 
Radio Shack’s 
TRS-80® Model 100 



8K Model 100 

79999 . 

As Low As $45 Per Month 
On CitiLine Credit 

24K Model 100 

QQQ00 

26-3802 

As Low As $56 Per Month 
On CitiLine Credit 



The Micro Executive Workstation™ 

Make the most of your time with the TRS-80 
Model 100 Portable Computer. With its built-in per- 
sonal word processing program, you can compose 
and edit documents virtually anywhere. 

Stuck in a taxi at rush hour? Use the time to write 
a memo, revise a speech or get a head start on your 
monthly report. Take the TRS-80 Model 100 with you 
on business trips — it fits easily in your briefcase with 
room to spare! 

A “User-Friendly” Computer 

Turn Model 100 on and you get a menu of five 
built-in management programs— plus your own 
files — listed on its eight-line by 40-character liquid 
crystal display. You can select the personal word 
processing program with powerful editing features. It 
features automatic “word-wrap”; the ability to define 
blocks of text by character, word, line, above or below 
cursor position; and easy manipulation of defined text 
blocks with the move, copy and delete function keys. 

Model 100 also works as an appointment calen- 
dar, address book, phone directory and telephone 



Radio /hack 

The biggest name in little computers® 

A DIVISION OF TANDY CORPORATION 

Prices apply at participating Radio Shack stores and dealers. 
Microsoft is a registered trademark of Microsoft, Inc. 



auto-dialer. You can even write your own BASIC pro- 
grams! In addition, Model 100 features a full-size 
typewriter keyboard, is powered by batteries or op- 
tional AC adapter, and retains all data with power off. 

Complete Telecommunications 

The Model 100 minimizes the inconvenience of 
business travel. With an optional cable, plug 
Model 100 into any modular phone jack and use its 
built-in auto-dial modem to access national informa- 
tion services. Or send back any text files to your office 
computer so typed copies can be ready to sign upon 
your return! You could, if you wish, wait until you 
return and connect Model 100 to an optional printer 
via its parallel interface. 

Model 100 also features a cassette port for our 
ready-to-run programs, plus an RS-232C interface to 
connect the Model 100 directly to another com- 
puter — micro, mini or mainframe. 

Find Out More 

Visit your nearest Radio Shack Computer Cen- 
ter, participating store or dealer for a demonstration 
of the revolutionary TRS-80 Model 100. 



NEW 1984 TRS-80 CATALOG. Send for your free copy. 

Mail To: Radio Shack, Dept. 84-A-592 
300 One Tandy Center, Fort Worth, Texas 76102 
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Exploring VisiCalc 



DIF isn't so difficult: Part 2 



Models I/II/III/4/12/16 



Timothy K. Bowman, Spokane, WA 



As we discovered last month, there are a number of 
uses for the Data Interchange Format. We used DIF to 
save portions of our spreadsheet and considered some of 
its limitations and advantages. In this second article, 
let’s access a DIF file from BASIC and manipulate the 
output to overcome one of VisiCalc’s formatting 
shortcomings. 

Getting Started 

I will not attempt to explain all of the fine points of 
DIF as others have more than adequately done that 
before me. I will, however, attempt to explain how to 
access a DIF file from BASIC and point out some of the 
scenic spots along the way and which trouble spots to 
watch out for. 

In order to begin, use your VisiCalc program to create 
a copy of the template shown in Figure 1. It is important 
that it be constructed exactly as shown; the values and 
their locations are critical items. Once you have created 
the template, save it both in the regular VisiCalc format 
and the DIF format. If you are unsure how to save the 
template in the DIF format, review last month’s article. 

A DIF File Reader Program 

Once you have created the above files, exit VisiCalc 
and enter BASIC. Type in program Listing 1. 



I used liberal REM statements to make the listing as 
clear as possible. These REM statements can be 
eliminated to save typing with no detrimental effect 
upon the program. The program is written as a series of 
subroutines so portions can be easily adapted to your 
specific needs. It should be noted that this program is 
only one of many ways to access the information. A 
summary of the key routines follows: 



Program 

Lines 


Function 


1150-1170 


Initial messages and copyright notices 


1240-1280 


DIF file reading completion messages 


1290-1450 


Sample manipulation of DIF array 


1480-1560 


Header reader 


1570-1620 


Vector Analysis 


1630-1690 


Tuple Analysis 


1700-1940 


Tuple Reader 


1960-1990 


Data Reader 


2000-2090 


Housekeeping 



The key to reading a VisiCalc DIF file is to recognize 
that it has a formal structure. Once you recognize that 
structure, it is relatively easy to access it. A DIF file has 
two principal components: header and data sections. 

The header is composed of six distinct items. We only 
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need to be concerned with two of them. Figure 2 displays 
a listing of the DIF file. You can obtain a similar listing 
of a DIF file by loading it into your favorite word 
processing program. 

In our sample file, the first item we are concerned 
about is the vector count. A vector is either a row across 
the page or a column down the page. This choice is 
determined by how the VisiCalc DIF file was originally 
saved. The second item, tuples count, is also either a row 
across the page or a column down the page but it is the 
opposite of the vector definition and was defined when 
the DIF file was originally created by VisiCalc. 

Reading the respective counts in Figure 2, you can see 
that our vector count is nine and the tuple count is six. I 
intentionally kept the file small so as to not confuse you 
in this brief description. 

The data section, as shown in Figure 2, is in the 
format: type indicator, value, then string. 

Lines 1840 to 1980 in the BASIC program access the 
data portion of the file using the above format to read it. 
Study the listing and you’ll see how the accessing 
subroutine works. Essentially, in our little routine, we 
are testing value T1 for either a zero (which indicates a 
numeric value in VI) or a 1 (which indicates a string 
value in S$). Depending upon which value we find, we 
store the value in the appropriate numeric or string two- 
dimensional matrix D(A,B) or D$(A,B). 

Running the Program 

Once you have entered the BASIC program and saved 
it to disk, run it and answer the filename prompt with 
the name of the file you saved the DIF file under at the 
beginning of this article. I included a number of ENTER 
prompts and time delays so you could view the program 
operating. While I composed it on a Model 4 running in 
Model III mode, it also should run on a Model I, II, III, 12, 
or 16 with little, if any, modification. 

When you are completed running the program, the 
final screen will show the DIF file printed on the screen 
in a reformatted manner with commas in the 
appropriate spots for the numerical information (see 
Figure 3). One could change all of the PRINT statements 
to LPRINT and direct the output to a line printer. I think 
that you would agree that the newly-formatted output is 
much easier to read, especially for non-computer 
enthusiasts! 

The key to the reformatting is found in the use of the 
PRINT USING statement, which is a powerful 
formatting tool. Simply change the format string in line 
1100 to reformat. Perhaps you need a dollar sign before 
the numeric data. Put it in the format string. The same 
thing goes for decimal point alignment and cents. 

Enhancements 

The purpose of this article has been to demonstrate 
how to access and manipulate a DIF file. I am sure that 
you can visualize other possible manipulations. 
Suppose that you wanted to print the columnar data out 
in reverse order. All you need to do is change the string 
in line 1330, change lines 1360, 1390 and 1420 to read 
FOR B = 6 to 4 Step -1, and RUN the program. Do you see 
how you could rotate the display 90 degrees counter- 
clockwise? How about sorting? 
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Limitations 

If you have a serious need to manipulate DIF files, a 
BASIC program may be your answer. For most users, 
however, I believe that it is far too time consuming to 
write the programs to manipulate the files. It’s much 
easier to manipulate it with VisiCalc or a commercially- 
written “generic” DIF file reader like “Liaison” 
(reviewed in September, 1983, Basic Computing ) and a 
word processor. 

References 

If you would like more technical information on DIF, I 
recommend that you acquire a copy of Programmers 
Guide to DIF from your local Radio Shack Computer 
Center or store. It is also found in the back of your Model 
III enhanced VisiCalc owner’s manual. Another good 
reference is “DIF: A Format for Data Exchange between 
Applications Programs” by Kalish and Mayer, Byte , 
November, 1981 . If you want to view how another author 
described accessing DIF files, see 80-Microcomputing , 
September, 1983, page 108, “What’s the DIF?” 

Do you have an interesting DIF application or 
question on this article or any VisiCalc topic? If so, write 
to me in care of Basic Computing. If you enclose a 
stamped envelope, I’ll give a prompt personal reply. 
Keep exploring VisiCalc! 

VisiCalc is a registered trademark of VisiCorp. 

DIF is a registered trademark of Software Arts, Inc. 
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Printer Speciols 

(Epson FDG80 $389 
(Epson BG80 $525 

G€MINI 10 $299 

G6MINI 1 5 $469 

Prouuriter I $359 

Prouuriter II $655 

Modem Special 

Mark I Modem uj/free subscription to source $75 

Diskette Speciols 

(Elephants S5/SS $16.95 
Qephonts DD/DD $20.99 

To Order Coll or UUrite: 

Team Computer Products 

170 Daniel Road 
Hamden, Conn. 06517 
(203) 288-5772 
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EPROM PROGRAMMER 

Build your own and save many $$$ 

The HIGH DESERT ENGINEERING EPROM PROGRAMMER 
provides the user with more features than most programmers costing 
many times more. It will program most popular 5-volt eproms, including 
the 2508, 2516, 2758, 2716 and 2732. The programmer allows the user to 
program an eprom from any ram memory, read an eprom into any ram 
memory and verify a previously programmed eprom. It will do automatic 
error checking and field checking to help prevent user errors. It will also 
automatically flag any previously programmed eprom locations. 

The programmer is compatible with TRS-80* MOD I & III and is 
supplied with a bare board, complete assembly instructions, software 
driver and users manual. Write for complete details. When ordering 
specify MOD I or III and tape or disk. (MOD I requires a bus adaptor. 
Instructions included.) Software is supplied on tape and will transfer to 
disk. 

Software, instructions and bare board $39.50 

Assembled and tested for MOD 111 $174.50 

Assembled and tested for MOD I $194.50 



DEBUG -MONITOR 

This new disk based DEBUG/MONITOR from HIGH DESERT 
ENGINEERING provides many very powerful features for the serious 
machine language programmer. It allows the user to set up to 10 
breakpoints along with the capability of setting multiple pass or loop 
counters for each breakpoint. Several display modes can be set for each 
breakpoint as well as the ability to selectively dump memory/registers to 
the printer at each breakpoint. Code is disassembled so the user can see 
the instructions executed during single step mode. The disassembler 
output can also be routed to the printer. DOS commands can be executed 
without losing debug control. This debug utility has many memory 
compare, search and modify features plus much, much more. Write for 
complete details on this very powerful debug/monitor utility. 

Specify TRS-80 MOD I or MOD III and memory size $29.50 

*TRS-80 is a trademark of Tandy Corporation 

HIGH DESERT ENGINEERING 
1630 So. Downs St. 

Ridgecrest, California 93555 
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for the Radio Shack™ Model III (Disk) Computer 



Executive Calculator ™ 



Over 150 easy-to-use Programs for 
Business and Home 

High quality, user proven Software at a Price you can afford 



Programs For: 

Finance 
Real Estate 
Investments 
Loans 
Leases 
Depreciation 
Charts & Graphs 
Plus Many More 



ALL THIS FOR ONLY $49.95 



• Over 150 Proven Programs 

• Complete Users Guide 

• Automatic Update Privileges 

• Complete Source Code 

• Money Back Guarantee 

• We Pay Shipping 

• All Orders Shipped Within 24 Hours 

• Requires 48K. Specify Disk or Tape 



Order with Confidence by Phone or Mail 

MCSsoftware s m 

809 PARKWAY, CONWAY, ARKANSAS 72032 
PHONE 501-327-4443 
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Q SAMPLE COMPANY 

I NCOME STATMENT 

FOR THE YEARS ENDED DECEMBER 31, 1983 

1981 1982 1983 

SALES 45,000. 53,950. 100,000. 

COST OF SALES 20,250. 24,817. 42,000. 

GROSS MARGIN 24,750. 29,133. 58,000. 

Now that you can see how to reformat your VisiCalc files on 
the screen, remember the above PRINT statements could be 
changed to LPRINT to aid the reader of your VisiCalc - 
produced information! 



Figure 



Program Listing for VisiCalc 
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<< 




1010 REM 
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1020 REM 
/ 


> 


BY 


X 

1030 REM 
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TIMOTHY K. BOW 


MAN < 






1040 REM 
/ 
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Created for 
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Basic Gcmputi 
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1060 REM 
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8/13/83 
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Version 1.0 
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1080 REM 
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> < 


S 

1090 CLEAR10000 


:DIM TV( 10, 50) , D$(10,50) 



COPYCAT 

Disk backup utility 



Now you can have a solution to the problem of 
protected software backup. 

COPYCAT® is the most powerful disk backup utility yet 
designed for the TRS-80 Computers. It will automatically 
make a fast, exact copy of your master disk regardless 
of protection schemes used including CRC errors, dual 
density tracks, mixed sector lengths and irregular I.D. 
pack. 

COPYCAT® is intended for your personal use only in 
making backup copies for your valuable protected soft- 
ware. 

COPYCAT® runs on a 48K, 2 disk drive TRS-80 
models I, III or 4. Specify model number when ordering. 

All orders are processed within 24 hrs. 
Non-certified checks require (2) weeks for bank clearance 

COPYCAT© *34.95 

Add $2.00 for postage and handling. 

California residents add 6% sales tax. 

OMNISOFT R€S€RRCH 

2170 W. Broadway, #501 B 
Anaheim, CA 92804 
(714) 772-5000 

Dealers inquiries welcome 
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,D(10,50) 

1100 F$="###, ###,###.": ' Print fo 

rmat String 

1110 DEF FN HR$ (X$ )=STRING$ ( ( 59 - LEN(X$ 
) )/2,">")+ " "+X$+" "+STRING$ ( ( 58 - LEN( 

X$) )/2, "< "):' HEADER 

1120 GOSUB 1150 :REM INITIAL 

IZE 

1130 GOSUB 1190 : ' GET STARTED - - 

1140 CLS : G0T01 240 

1150 CLS:PRINTFN HR$("DIF FILE READER"); 
:PRINT @ 832, "DIF is a registered tradem 
ark of Software Arts, Inc."; 

1160 PRINT@896, "VisiCalc is a registered 
trademark of VisiCorp." 

1170 PRINT@192,"This program will read t 
he contents of a DIF file and display" :P 
RINT“the numerical data in an easier to 
read format which overcomes" sPRINT" a key 
shortcoming in the VisiCalc formatting 
abilities . " 

1180 PRINT" I encourage you to experiment 
with the program and use it to PRINT" 
solve real DIF file reading and formatti 
ng needs you may have. Have funl "sPRINT 
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SOFTWARE 



for 

IBM-PC, OSBORNE, XEROX NORTHSTAR 
RADIO SHACK, EPSON QX-1 0, CPM & MS-DOS 
All Prices Include Full Support and Source Code 

$ TAX/PACK $ 

TAX/PACK for practitioners is complete, coordi- 
nated, and includes most-used forms and sched- 
ules. Prints all schedules, no masks, no data field 
entered more than once. All data passed auto- 
matically between schedules and 1040. Fully 
supported all year. Partial or full system. Can be 
used for single or multiple returns. Extremely 
flexible. Computing taxes for over five years. 

$995.00 

MORE! TRIED & TRUE APPLICATIONS! 

■ MAIL LIST MANAGER ■ RETAIL INVENTORY BILLING 
■ REAL ESTATE APPRAISAL ■ PETROLEUM DISTRIBUTORS 
■ MEMBERSHIP LIST MANAGER ■ UTILITY BILLING 




Send Check, M.O., or VISA/MC Number& Exp. Date TODAY 




ANALYTICAL PROCESSES CORP. 
635 Main Street — P.O. Box 1313 

Montrose, Colorado 81402 
Call (303) 249-1400 




We Are Unique . . . Try Us . . . Find Out 
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: PRINT :GOSUB2090 :GOSUB2010 : RETURN 
1190 GOSUB2020 ;GOSUB2030 : PRINT; PRINT :L 
INEINPUT"File Name Please ( nnnnnnnn/DIF) 
Fl$ 

1200 GOSUB1480 GET T 

HE HEADER 

1210 GOSUB 1710 READ TOE DA 

TA 

1220 RETURN 
1230 GOSUB2030 ; 

1240 PRINT"We've new read the DIF file a 
nd it exists in the arrays:" 

1250 PRINTTAB( 20) " TV(t,v), 'Type of da 
ta indicator' :":PRINTTAB( 20)" D$(t,v), 
'string data ' " ; PRINTTAB( 20 ) " D(t,v), 'n 
umeric data' " 

1260 PRINT :PRINT"where t and v represent 
the tuple and vector locations." 

1270 PRINT: PRINT"With the above informat 
ion, we can re-arrange the information": 
PRINT" in any way we desire .": PRINT : PRINT 
"Let's do itl" 

1280 GOSUB2090 :GOSUB2010 

1290 ' SCREEN PRINT ROUTINE - 



1300 CLS: PRINT TAB( 20) "SAMPLE COMPANY" 
1310 PRINTTAB( 19) "INCOME STATMENT" 

1320 PRINTTAB( 9 ) "FOR THE YEARS ENDED DEC 
EMBER 31, 1983 

1330 PRINTTAB( 20) " 1981 1982 

1983" 

1340 PRINT 

1350 PRINT "SALES"; 

1360 FOR B = 4 TO 6 

1370 PRINT TAB(15) ; USING F$;D(B,7) ; :NE 

XTB: PRINT 

1380 PRINT "COST OF SALES"; 

1390 FOR B=4 TO 6 

1400 PRINT TAB(15) ; USING F$; D(B,8);:NEX 
TB: PRINT 

1410 PRINT "GROSS MARGIN"; 

1420 FOR B = 4 TO 6 

1430 PRINT TAB( 15 ) ; USING F$; D(B,9);:NEX 
T B: PRINT 

1440 PRINT: PRINT" Now that you can see ho 
w to reformat your VisiCalc files on": PR 
I NT" the screen, remember the above PRINT 
statements could be ": PRINT" changed to 
LPRINT to aid the reader of your VisiCal 
c - PRINT" produced information! " 

1450 GOTO 1450 
1460 GOTO1460 

1470 REM READ HEADER SUBR 

OUTINE 

1480 0PEN"l",l,Fl$ 

1490 VN=0:TN=0:REM- INITIALIZE VECTOR AN 
D TUPLE NUMBER COUNT - 
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1500 INPUT #1,T$ 

1510 INPUT #1, TP, N 
1520 INPUT #1, D$ 

1530 IF T$="VECTORS"THEN GOSUB 1570 
1540 IF T$= "TUPLES" THEN GOSUB 1630 
1550 IF T$="DATA" THEN RETURN 
1560 GOTO 1500 

1570 REM VECTOR ANALYSIS 

SUBROUTINE 

1580 VN=N 

1590 GOSUB2030 :PRINT@512,F1$;" HAS "?VN 
VECTORS." 

1600 GOSUB 2090 :GOSUB2010 

1610 IF VN>=50 THEN CLS:PRINT@512,F1$; " 

HAS TOO MANY VECTORS TO PROCESS" : CLOSE 1 

:GOTO 1150 

1620 GOTO 1500 

1630 TN=N: ' TUPLE ANALY 

SIS SUBROUTINE 

1640 ' TN= TUPLE COUNT 

1650 GOSUB2030 :PRINT@512,F1$;" HAS ";TN 
; "TUPLES." 

1660 GOSUB 2090 :GOSUB2010 
1670 IF TN>10 THEN PRINT :PRINT"THIS FILE 
HAS TOO MANY TUPLES" ELSE GOTO 1500 
1680 CLOSE 1 
1690 GOTO 1150 

1700 ' READ THE TUPLES 



1710 GOSUB2030 :POR Af= 1 TO TN 

1720 GOSUB2030 : PRINT® 128, "VALUES FOR TU 

PLE # "?A; 

1730 GOSUB 1850 
1740 FOR OITO VN 

1750 GOSUB2030 :PRINT@192, "VALUE FOR VEC 
TOR # ";C; 

1760 GOSUB2020 :GOSUB2030 

1770 IF TV(A, C)=0THEN PRINT@512,D(A,C) 

1780 IF TV(A,C)=1THEN PRINT@512, D$(A,C) 

1790 GOSUB2020 

1800 NEXT C 

1810 NEXT A 

1820 CLOSE 1 

1830 RETURN 

1840 ' GET TUPLES FROM DIF 

FILE 

1850 GOSUB1970 

1860 IFTIO-ITHEN 2050 

1870 IFS$ < > "BOT"THEN2050 

1880 FORB=lTOVN 

1890 GOSUB1970 

1900 IFT1=— 1THEN2050 

1910 IF T1=0 THEN D(A,B)=V1 ELSE D$(A,B) 
=S$ 

1920 TV(A,B)=T1: ' Save type indie 

ator 



1930 NEXT B 
1940 RETURN 
1950 STOP 

I960 ' GET NEXT DATA INDICAT 

OR 

1970 INPUT# 1,T1, VI:’ GET TYPE INDICATOR 
AND VALUE IF ANY 

1980 INPUT#1,S$: ' GET STRING 

VALUE 

1990 RETURN 

2000 ' HOUSEKEEPING SECTION 



2010 Z$=INKEY$ : IF Z$=""THEN 2010 ELSE IF 
Z$=CHR$ ( 13 )THEN RETURNELSE 2010 
2020 FOR TI=1 TO 50:NEXT TI: RETURN: ' 
TIME DELAY 

2030 PRINT@192,CHR$(31) ? : ' CLEAR 

BOTTOM OF SCREEN 

2040 RETURN 
2050 GOSUB 2030 

2060 PRINT@512, "FILE FORMAT ERROR. MAKE 
SURE THE FORMAT IS DIF"; 

2070 CLOSE 1 
2080 STOP 

2090 PRINTTAB( 20) "Press >ENTER< to Conti 
nue": RETURN 
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Match your programs 

Find out where two BASIC programs differ 



Models 1/111/ 4, with disks 



Okay, let’s see a show of hands. How many of you 
have wanted to find every line in a BASIC program 
where a particular string appears? Oh, my, that many? 
Well, how many have wanted to replace that string with 
another string? Goodness! Not a single hand went 
down. Let’s find out if any of you have wanted to match 
two BASIC programs and find all of the differences. 
Boy! Based on that sea of flesh, I think we should do 
something about this. 

Well, I have. Accompanying this article is a listing for 
MATCH/BAS — a utility program which provides all of 
these functions. Upon running MATCH/BAS, it will 
display a menu asking which of these functions you 
want. If you choose function one, which is to match two 
files, it will request the name of the old file, the new file, 
and the destination file. The destination file will be 
created and will contain (in ASCII format) the patches 
that would have to be applied to the old file in order to 
create the new file. 

If you choose options two (finding a string) or three 
(replacing a string), MATCH/BAS will ask for the file to 
be searched, the string to search for, and the destination 
file to which to write the lines containing the string. If 
you are running option three, MATCH/BAS will also 
ask for the string with which to replace the search 
string. 

For all options, the input file(s) should be in normal 
compressed BASIC format, not in ASCII format. 
MATCH will expand them itself, which saves you the 
extra disk space required by an ASCII file. MATCH 
accomplishes this by calling a machine language 
subroutine at line 220. This subroutine, in turn, calls a 
ROM routine at 2B7EH which expands the line into 
ASCII. This is the same routine used by the LIST and 
EDIT commands to expand the BASIC text. The code for 
the routine used by MATCH follows: 



CALL 


0A7FH 


GET THE ARGUMENT 


INC 


HL 


MOVE THE ADDRESS 


LD 


E,(HL) 


OF THE STRING 


INC 


HL 


INTO DE 


LD 


D,(HL) 


AND THEN PUT IT 


EX 


DE,HL 


INTO HL 


JP 


2B7EH 


EXPAND THE STRING AND 
RETURN TO BASIC 



The destination file produced by MATCH/BAS is in 
ASCII format. This way you can easily examine and 
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print it. You can also merge it into your source file since 
the merged file must be in ASCII. 

Now, how many of you are still having the problems 
we discussed earlier? Nary a paw in the sky . . . now 
that’s what I like to see. 



Program Listing for MATCH/BAS 

10 CLEAR10000 : DEFINTA-Z :U$="/ //////////** 
:Xl=PEEK(VARPTR(U$)+l)+256*PEEK(VARPTR(U 
$ )+2) :X! =X1 +65536* (Xl >32767 ) : PORI=0TO10 : 
READY : POKEX i+I,Y: NEXT : DEFUS R=X i s DIMIX$ ( 2 
),LN(2),BR(2),BI(2),BF(2,2),BC(2),EF(2), 
FS$(2),TI$(99) 

20 DATA205, 127,10, 35,94, 35,86,235/195,12 
6/43 

30 CLS: PRINT 11 Basic File M 

anagement Utility 



1) Match Two Files 

2) Find All Occurra 

nces of a String 

3) Replace All Occu 
rrances of a String" 

40 INPUT" 

4) Exit 



Make Selection F 
ran Menu ";MC:IFMC<1ORMC>4THEN30ELSEIFMC 
=1THEN100ELSEIFMC>=4THENCLS s ENDELSEF=1 
50 CLS : LINEINPUT" Enter Name of File: ";F 
S$ ( 1 ) : LINEINPUT" Enter String to Search F 
or: ";T1$:IFMC^3THENLINEINPUT" Enter Stri 
ng to Replace it With: ";T2$ 

60 LINEINPUT" Enter Name of Destination F 
ile : " 7 FM$ : CLS : OPEN" R" # 1 # FS$ ( 1 ) : OPEN 1 ’O" # 
2/FM$:FIELDl,128ASBF$(l/l)/128ASBF$(l/2) 
:BC(1)=0:EF(1)=LOF(1):BI(1)=128:BR(1)=2: 
BC ( 1 ) =0 

70 GOSUB2 00:1 FBC ( F ) =- 1 THENCLOSE : G0T03 0EL 
SETI=0 : GOSUB80 : GOTO70 

80 I=INSTR( TX$ (F) , Tl$ ) : IFI=0THENRETURNEL 
SEIFMC=3THENTI$ (TI ) =LEFT$ (TX$ ( F) / 1-1 ) +T2 
$ : TX$ (F) =MID$ (TX$ (F) f I+LEN(T1$) ) :TI=TI+1 
: GOSUB80 : TI=TI-1 :TX$ (F)=^TI$ (Tl) +IX$ (F) : I 
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PTI > 0THE3SIRETURN 

90 PRINT#2/ RIGHT? (STR? (LN(F) ),LEN(STR?(Li 
N(F) ) )- l);TX?(F) : RETURN 
100 CLS:LINEINPUT"Enter Name of Old File 
:";FS$(1) :LINEINPUT"Enter Name of New F 
ile: " ; FS? ( 2 ) : LINEINPUT" Enter Name of De 
stination File: ";FM$ 

1 10 CLS : 0PEN"0" , 3 , FM? : P0RI=1T02 : OPEN" R" , 

I , FS? ( I ) : FIELDI , 128ASBF? (1,1)/ 128ASBF? ( I 

,2):BC(I)=0:EF(I)=LOF(I):BI(I)=128:BR(I) 

=2 : BC ( I ) =0 : NEXT 

120 F=1 : G0SUB2 00 : F=2 : GOSUB200 

130 IFBC ( 1 ) =-lTHENIFBC ( 2 ) =-lTHENCLOSE : GO 

TO30ELSE160ELSEIFBC( 2 )=-lTHEN170 

140 IFLN ( 1 ) <LN ( 2 )THENPRINT# 3 , RIGHT? ( STR$ 

(LN(1)),LEN(STR?(LN(1)))-1);"REM *** TOI 

S LINE HAS BEEN DELETED ***":F=1:GOSUB20 

0 : GOTO130ELSEIFLN( 2 ) <LN( 1 ) THENPRINT# 3 , RI 

GHT? (STR? (LN(2 ) ) , LEN(STR? (LN(2 ) ) )-l ) ;TX? 

(2) :F=2:GOSUB200:GOTO130ELSEIFTX?(l)=TX? 

(2)THEN120 

150 PRINT# 3 / RIGHT? ( STR? (LN( 2) ),LEN(STR?( 

LN( 2 ) ) ) -1 ) ; TX? ( 2 ) :GOTO120 

160 PRINT#3,RIGHT?(STR?(LN(2)),LEN(STR?( 

LN( 2 ) ) ) -1 ) ; TX? ( 2 ) :GOTO120 

170 PRINT# 3, RIGHT? ( STR? (LN(1)),LEN( STR? ( 



LN(2) j )-l ) ; "REM *** THIS LINE HAS BEEN D 
ELETED" : G0T01 20 

180 IFBC(F)=^1THENRETURNELSEIFBI(F)=128T 
HENIFBR( F) =1THENBR( F) =2 : BI ( F)=1ELSEIFBC ( 
F) =EF( F) THENBC( F) =-lELSEBC( F) =BC( F) +1 : GE 
TF,BC(F):BR(F)=1:BI(F)=1-(BC(F)=1)ELSEBI 
(F)=BI(F)+1 
190 RETURN 

200 Fl=0 : P0RI=1T02 : GOSUB180 : FI=FI- (MID? ( 
BF? (F, BR(F) ) , BI (F) , 1 ) =CHR? ( 0 ) ) :NEXT: IFFI 
=2THENBC(F)=-1:RETURNELSELN(F)=0:PORI=1T 
02 :GOSUB180 : LN(F) =LN( F) - ( 255* ( 1=2 ) -1 ) *AS 
C(MID?(BF?(F,BR(F)),BI(F),1)):NEXT:TX?(F 

j = »l II 

210 GOSUB1 80 : L=INSTR( MID? ( BF? (F,BR(F)),B 
l(F) ) ,CHR? (0) ) :L=— L* (L>0)— (129— BI(F) )* (L 
=0) :TX?(F)=<TX?(F)-HMID?(BF?(F,BR(F) ),BI(F 
) , L) : BI ( F) =BI (F) +L-1 : IFRIGHT? (TX? ( F) , 1 ) = 
CHR? ( 0)THEN220ELSE210 

220 L=USR(VARPTR(TX$ (F) ) ) :Xi=VARPTR(TX? ( 
F) ) : POKEXl , 255 : POKEXl +1 , PEEK( &H40A7 ) : POK 
EXl+2, PEEK( &H40A8 ) : L=INSTR(TX? ( F) , CHR? ( 0 
) ) : IFL> 0THENTX? (F)=LEFT? (TX? (F) , L-l) 

230 PRINT@512,CHR? (240) :PRINT@512,CHR? ( 2 
3 ) ; "Reading ";FS?(F);" Line";LN(F) :RETUR 
N 



PRICES YOG CAN’T BEAT! . . 



LNW-80 Model II $1595 

128K, 578” DISK CONTR., RGB COLOR, HI- 
RES GRAPHICS, RS 232, PAR PRINTER PORT, 
80x24 DISPLAY, 1 YEAR WARRANTY, PLUS 



FREE SOFTWARE 

MICROSOFT BASIC, LNW BASIC, DOS+ 3.4, 
CPM 2.2, CHART-X GRAPHICS, MICROTERM, 
ELECTRIC PENCIL, ELECTRIC SPREADSHEET, 
PROF. BCJSS. ACCTING (general ledger, accts 
pay., accts rec., payroll) 

SPECIAL THIS MONTH 

COMPUTERS 

PMC 81, 16K $499 32K EXPANDOR $329 

TIMEX $56 1 6 MEM $42 

APPLE CLONE (SYSCON 2) $599 

TRS 80 COLOR COMP. 1 6I< $269 

TRS-80 MOD. IV, 64K, 2 40 TRK S/S $ 1 ,799 



CRT MONITORS 

AMDEK 300 GREEN 
AMDEK 300 AMBER 
AMDEK COLOR I 
AMDEK COLOR II 
TAXAN RGB COLOR I 
TAXAN RGB GOLOR III 
TAXAN GREEN 
TAXAN AMBER 



$139 

$159 

$359 

$639 

$299 

$535 

$125 

$139 



TEAC Vi SIZE DRIVES 



FD 55A 40TRK S/S 
FD 55B 40TRK D/S 
FD 55F 80TRK D/S 

ALL TEACS HAVE A 1 YEAR WARRANTY 



Bare Compl. 

$209 $245 

$280 $319 

$360 $399 



TANDON DRIVES 

100-1 40TRKS/S 
100-2 40TRKD/S 
100-4 80TRK D/S 



Bare Compl. 

$189 $230 
$259 $299 
$340 $385 



ECONOMY DRIVES 

COMPLETE W/CASE/PWR SUPL/CABLE 
40TRK S/S $195 



APPLE COMPATIBLE DRIVE 
W CONTR CARD, CASE & CABLE 



$275 



C-ITOH PRINTERS 

PROWRITER 8510 
PRO WRITER 1550 
F-10 40CPS 
F-10 55CPS 
F-10 TRACTOR FEED 
QUME SPRINT 1 1 40CPS 

MODEMS 

NOVATION J-CAT 
SIGNALMAN 



PAR SER 

$379 $539 

$659 $739 

$1295 $1295 
$1550 $1550 
$195 
$1,450 



$135 

$85 



LNW SYSTEM EXPANSION II 

UPGRADE YOUR MOD 1 OR PMC-80/81 WITH 
DISK CONTROLLER RS 232 PARALLEL 
PRINTER PORT • 32K 200 NS MEMORY • GOLD 
CONNECTORS -TRANSFORM -CASE • CABLE 

SPECIAL THIS MONTH $329 



EXPANSION INTERFACES 

MICRO DESIGN MDX-2 $449 

MICRO DESIGN MDX-3 $289 

LNW DOUBLER w. DOS+ 3.4 $189 

DOUBLE DENSITY MULTIPLIER $95 



SOFTWARE 



LAZY WRITER $159 MULTIDOS 

ELECTRONIC WEBSTER $ 1 1 9 SUPER UTILITY + 

MAXI MANAGER $129 M A S. 80 

POSTMAN $119 NEWSCRIPT 

DOS PLUS 3.4 $89 OMNITERM 



$89 
$65 
ea. $1 35 
$1 14 
$78 



24 HOUR TOLL FREE ORDERS 
VISA/MASTER CHARGE ONLY: 
(800) 033-2252 EXT 720 

ALL QUESTIONS: (313)538-1112 

MICHIGAN RESIDENTS ADD 4% SALES TAX-POSTAGE 
CALL FOR CHARGES- PRICES ARE DISCOUNTED FOR 
CASH AND MONEY ORDER (NON CERTIFIED CHECKS 
ALLOW 2 WEEKS TO CLEAR) MASTER CARD AND VISA 
ADD 3 % NO CO D NO NET TERMS 




VF^PACOMPUTer outlet 

W 16727 Patton Detroit Ml 482 19 
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BASIC bits 



Restoring tape Scripsit, using relational 
operators and other answers 



Models I/III/4 



Thomas L. Quindry, Contributing editor 



The last question in this month’s 
column prompted me to write a little 
about logical operators, sometimes 
called relational operators or 
conditional statements. The use of 
relational operators (I prefer the 
term conditional statements) 
appears in the Radio Shack Level II 
BASIC manual but it’s easy to miss. 
There is a short cut to using condi- 
tional statements that, depending 
on one’s application, can be quite 
useful. As an example, enter the 
statement: X=Y=7 : PRINT X. The 
results of this are quite unexpected. 
An error does not occur. It does not 
set X=7, nor does it set Y = 7 . Instead, 
it sets X=-l (for true) or X=0 (for 
false), depending on whether Y=7 is 
a true or false condition. 

Many shorthand conditional 
statements can be entered using =, 
<, >, <>, AND, OR, or NOT symbols 
in any combination. I believe that 
every type of conditional statement 
listed in BASIC can be done using a 
shorthand method. To illustrate, a 
conventional BASIC program 
might be listed as follows: 

10 INPUT I,A,B,C 
20 IF (1=7 AND A<B) OR (107 
AND A>B) THEN A=B+C ELSE 
A=B 

90 PRINT A 

An equivalent program can be 
written changing line 20: 
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20 A=B-C*((I=7)=(A<B)) 

Here, the shorthand method saves 
13 bytes. Let’s analyze this. 
Assuming that both statements, 1=7 
and A<B are true, both inner 
parentheses are true and a (-1) is 
generated in each. The outer 
parentheses now contain (-1=-1) 
which, when analyzed, is also true; 
so the value of the outer parentheses 
is (-1). When multiplied by -C and 
added to B, the value for A is B+C, 
which is the desired result from our 
original conditional statement. If 
only one of the conditions (1=7 and 
A<B) is true, then (-1=0) or (0=-l); 
either being false or a value of (0). 
Then A=B-C*(0) or A is set equal to 
B. When both conditions (1=7 and 
A<B) are false, (0=0) equates to a 
true condition or (-1) and again A is 
set equal to B+C. 

This example, as you can see, 
gives identical results for both 
conventional and shorthand state- 
ments for line 20. Try your own 
shorthand statements in BASIC 
and see the results. Whichever way 
you express line 20, the placement of 
the parentheses is very important. 

Confused? James A. Conrad gave 
a discussion on logical operators in 

the April, 1983 issue in his Basically 

BASIC column. Also see your Radio 
Shack Level II BASIC manual. 



In the December , 1982 issue of 80- 
U.S. Journal , there was an article in 
the @News column that indicated a 
person could re-enter Model I 
cassette Scripsit when using the 
ESF system by typing U SYSTEM” 
and e< /21510.” Thinking it might 
work with a regular tape system , I 
tried it, but it did not work. What is 
the entry location for Scripsit from 
regular tape? —R.M., Cornwall- 
Hudson, NY. 

Your entry point for the Model I 
cassette Scripsit is correct. You are 
neglecting to do one thing. You must 
reload Scripsit. At the prompt, type 
“/21510” for the Model I version and 
you will see the SPECIAL COM- 
MAND message on the bottom of the 
screen. Hitting clear will restore 
your program. The reason you must 
reload Scripsit is to restore several 
bytes that are destroyed by 
rebooting your computer. 

Model III cassette Scripsit is a 
little more difficult. This version 
includes code which overwrites 
some pointers in memory when you 
load the program again. If you try 
an equivalent entry point, “/21280,” 
for Model III Scripsit, you do not 
have the necessary pointers set in 
the program. What you have to do 

for the Model III is pre-plan. 

First, load Model III Scripsit. 
Without going into Scripsit after the 
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program has loaded, enter a 
machine language monitor that will 
write to a cassette tape. Save code 
from 43E8H to 444BH with a 
transfer address of 5320H. That 
transfer address is the same as 
21280 in decimal. Now, if you 
accidentally get out of Scripsit on 
the Model III, you can run this little 
restoring program which puts back 
the Scripsit code over the memory 
area that is destroyed when a reboot 
occurs. At the prompt, just enter 

If you want to make a short 
program like this for the Model I 
cassette Scripsit (on the Model I), 
save code from 42E8H to 434BH 
with a transfer address of 5406H, the 
equivalent of 21510 in decimal. 

In the July , 1983 issue of Basic 
Computing, you discussed the use of 
the MID$ statement to avoid delays 
caused by the garbage handling 
routing. I have read a couple of other 
articles on this technique, but none 
of the articles I have seen answer 
three questions that have occurred 
to me: 

1. Can the LEFT$ and RIGHT$ 
statements be used in the same way 
as MID$, i.e., of the form 
MID$(A$,x,y)= “ 

2. In the case of a string array, 
does filling the array with blanks 
recover the memory it used ? 

3. In the case of numeric arrays, 
does filling an array with zeroes 
recover any memory ? —P.B., 
Metairie, LA. 

The answer to your three 
questions are: No. No. And, no. 
LEFT$ and RIGHT$ statements can 
only be used on the right side of the 
equation. The MID$ statement can 
be used on both the right and the left. 
Since only on the left side does MID$ 
redefine part of a string, that is the 
only place where it can prevent the 
garbage collection delays. 

Filling a string array with blanks 
(or spaces) only adds to the problem 
of garbage collection. If you define 
the string array to null strings, 
[A$(N)=""], you will recover string 
space the next time garbage 
collection takes place. This only 
provides more space for your other 
strings. The memory is still allotted 
to string usage. 

Numeric arrays are allotted two, 
four, or six bytes for each array item, 
depending on whether they are 
integer, single- or double-precision. 



This is regardless of the value 
assigned to them. 

Could you decipher the following 
BASIC statement ? I don't seem to 
find it in any of the TRS-80 manuals. 
Y=CVI(I$)-65000*(CVI(I$)<0). Iam 
thrown by the term CVI and the <0 
part. — F.B. , New York, NY. 

The following six Disk BASIC 
statements relate to random file disk 
access and are given in your TRS-80 
disk manual: MKD$, CVD, MKI$, 
CVI, MKS$, and CVS. The D, I and S 
stand for operations that will be 
done on double-precision, integer, 
and single-precision numbers, re- 
spectively. In order to store numeric 
values in a random-access disk file, 
they must first be converted to string 
values. The MK-$ series of 
commands changes a numeric value 
to the appropriate string. Double- 
precision numbers become eight- 
byte strings using MKD$(number). 
Integers become two-byte strings 
and single-precision numbers 
become four-byte strings. When you 
wish to use the values in their 



numeric form, after reading them 
from a disk file, you use CVD, CVI, 
or CVS to convert them back to 
numeric values. 

The term, CVI(I$)<0, returns a 
value of minus one if the expression 
is true, i.e., if the numeric value of 
CVI(I$) is less than zero. It returns a 
value of zero if the expression is 
false, i.e., if the numeric value of 
C VI(I$) is greater than zero. Thus, if 
the numeric value of CVI(I$) was 
equal to 1000, the above term would 
give Y=1000 -65000*(0) or 1000. Had 
the numeric value of CVI(I$) been 
equal to minus 1000, Y—1000 
-65000*(-l) or 64000. 

Remember to send your requests 
for future column topics, questions 
and tips to me, care of Basic 
Computing , 3838 South Warner 
Street, Tacoma, WA 98409. Send a 
self-addressed stamped envelope 
and Til try to give you a personal, 
handwritten reply if the answer is 
not too long and involved. Problems 
of general interest may be included 
in future BASIC bits columns. 



TRS-80 - SOFTWARE 



Write for our incredible catalogue of over 
100 pages, containing hundreds of 
programs for the Model I and III. Color 
Computer programs available in the 
Fall. Catalogue is $5.00 refundable on 
your first order. All software is 
unconditionally guaranteed for life!! 
Canadian manufacturer and distributor 
for Molimerx, Ltd. of England. 

Games/DOS/Utilities/Business Programs 



*LDOS $159.95 

‘MULTI DOS $129.95 

“ACCEL 4 $139.95 

•FROGII $ 23.95 

'JUMBO $ 40.95 

'POWER MAIL PLUS $199.95 

'AIRBUS $ 41.95 

‘DATA WRITER $189.95 

'DRIVER COMPILER $ 43.95 

•ENIGMA $ 36.95 




DEALERS WELCOME 



JSOFT 

P.O. Box 1437 
Winnipeg, Manitoba R3C 2Z4 
Canada 
(204) 942-0963 



Fully Supported Computer Softwore ‘Trademark of Tandy Corporation. 
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In the chips 

Intercepting the keyboard and a step-by-step 
BASIC program monitor 



Models I/III/4 



Spencer Hall, Associate editor 



Why do you want to learn machine 
language? The major uses for 
software appear to be (1) data 
handling (collecting, storing, 
retrieving, analyzing and 
displaying information), (2) games 
and simulation for recreation 
and/or training and, (3) real-world 
interfaces (measuring and recording 
events as they take place, 
controlling machinery and 
equipment. If neither you nor I plan 
to compete with the heavies who are 
already marketing incredible 
machine language programs for 
doing all these things, why are we 
talking Z80? 

The answer, it seems to me, is that 
the above list is incomplete. To those 
three, add (4) operating systems (the 
software which makes hardware 
responsive to user demands and 
enhances the ability of man and 
machine to communicate with each 
other. Most of us settle for the 
system that came with our 
computers. Some of us buy software 
patches which change this system to 
do special things such as renumber 
BASIC programs or allow the 
merging of two programs. Actually, 
knowledge of machine language 
and our system’s design makes 
possible any number of improve- 
ments. 

As an introduction to this kind of 
machine language programming, 
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we offer a modest little program 
whose success depends on our 
knowing how the ROM scans the 
keyboard looking for a keystroke. 
We’ll convert lowercase letters, 
when they are pressed, into graphics 
characters. With it, you can write 
single-line packed strings and see 
them as you write. You may find its 
usefulness limited, but there are still 
some valuable insights to be gained 
from studying it. 

Before we examine the source code 
for GRAFIX, there are things to 
know about the TRS-80 operating 
system. Your computer “watches” 
the keyboard for a keystroke by 
repeatedly CALLing the machine 
language at 338EH (for a Model I 
that’s 03E3H). If a key is pressed, 
this routine deciphers the keyboard 
matrix and puts the ASCII value in 
register A. Before each call to this 
scanning routine, the system tests 
address 4015H (decimal 16450, 
remember that). Finding a one there, 
it goes on with the scanning. If a 128 
(or any other number in a Model I) is 
there, it goes to 4033H to get some 
brand-new instructions. The one is 
placed at 4015H when you first enter 
BASIC following your response to 
MEMORY (or MEM) SIZE. Since 
these two addresses are up in RAM, 
they can be changed. That’s exactly 
what the subroutine PATCH in our 
program does. 



Incidentally, this program 
illustrates a situation many 
beginners find most confusing. 
Without good remark statements, it 
can be very hard to understand the 
why or wherefore of this code. As the 
END statement says, when you 
execute this program, processing 
begins at PATCH. But it ends at the 
end of PATCH with a jump back to 
BASIC READY at ROM address 
1A19H. What’s the purpose of 
TEST? Actually, TEST is the 
working part of this program and its 
whole purpose. PATCH gets used 
only once. Its purpose is to install 
the bytes which cause the ROM to 
detour through TEST every time it 
scans the keyboard. First, it puts 128 
(80H) in address 4015H (zero for 
Model I). 

The code in lines 270 and 280 does 
this. For a Model I, line 270 should 
read XOR A. This places a zero in 
register A by means of the XOR 
command. XOR, like CP, is 
understood to be working on register 
A. On the Model I, line 270 will be 
XORing A with itself. This is 
different from OR, which we saw 
last time. The effect of XOR on two 



bytes is as follows: 




If one 


And the 


Result 


bit is: 


other is: 


is: 


1 


1 


0 


0 


0 


0 


1 


0 


1 
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SOFTWARE PRICE WAR 



$ 19.95 

Not cheap programs but complete software systems. I believe most software is 
pirated because it is overpriced and I’m taking this gamble to prove it. 

HELP STAMP OUT SOFTWARE PIRATES 

I advertised these Systems in 80MICRO for $79.00. 1 rather sell 1 000 systems 
at $1 9.95 than 1 00 at $79.00. These are complete software systems sup- 
plied to you on a TRSDOS 1 .3 system diskette (I paid Tandy Corp. a royalty fee 
for this privilege). All systems fully menu driven — user friendly just insert 
diskettes, reset and go. Systems are supplied with full documentation (although 
most users report that they don’t read it). 

LYNN’S PAYROLL SYSTEM 

Complete record keeping & payroll calculation. To include your state’s un- 
employment tax & forms, detailed 941 form, prints paychecks & W-2’s. 

LYNN’S ACCOUNTS RECEIVABLE SYSTEM 

Single entry — open invoice system. Prints invoice and statements. Built in 
aging report. 

LYNN’S CHECK REGISTER SYSTEM 

Prints checks. Register for any month, reconciliation statement. 

LYNN’S AMWAY SYSTEM 

Includes group & individual performances levels of BV & PV Multiple sales tax 
rates. Products included on disk. New products easily added. YTD performance 
payments received and paid to your downlines. 

LYNN’S E-Z MAIL SYSTEM 

Sort by name, zip code, state. 2,500 names. E-Z edit. 

All systems have an easy menu driven back-up and are written in basic. 

AND NOW THE BEST PART 
ANY SYSTEM ONLY $19.95 EACH. 

Plus $3.00 shipping per order. Illinois residents add 5V4% sales tax. 
(The TRSDOS alone is worth $14.95) 

All systems phone supported call 815/436-4477 and ask the author JOE 
LYNN what you want to know. I will assist all original purchasers anyway I can. 

Joe Lynn 

Computer Services 
23501 W. Gagne Lane 
Plainfield, Illinois 60544 
815/436-4477 
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TRS-80 MODEL III “ 
ASSEMBLY LANGUAGE 

A complete course in assembly language, 
written for the beginner. Basic concepts, 
the Z-80 instruction set, complete Model 
III ROM and RAM information, program- 
ming examples, the disk controller, the 
TRSDOS 1.3 disk operating system, 
RS-232-C interface. 

With the book you can also purchase 
Monitor #5, a comprehensive machine 
language monitor (specify Model 1 or 3). 



Book only $16.95 

Book and Monitor #5 on disk $29.95 



SYSTEM DIAGNOSTIC 

Complete diagnostic tests for every 
component of your TRS-80 Model 1 or 3. 
Tests for ROM, RAM, Video Display, 
Keyboard, Line Printer, Cassette Recorder, 
Disk Drives, RS-232-C Interface. Individual 
or continuous testing modes. Models 1 or 
3 only. 

System Diagnostic $99.95 

SMART TERMINAL 

The intelligent terminal program, with 
automatic transmission and storage of data, 
true BREAK key, cassette and disk files 
compatible with SCRIPSIT™ and Electric 
Pencil"". Same program supports both cas- 



sette and disk systems. 

Model 1 or 3 version $74.95 

Model 2/12 (CP/M) Version $79.95 



TYPITALL 

The SCRIPSIT~ Compatible Word Processor 
TYPITALL is a new word processing pro- 
gram which is upward compatible with 
SCRIPSIT"’ for the Model 1 and 3 TRS-80. 
TYPITALL includes features like these: as- 
sign any sequence of keystrokes to a single 
control key. See the formatted text on the 
screen before printing. Send the formatted 
text to a disk file for later printing. Merge 
data from a file while printing. Send any 
control or graphic character to the printer. 
Use the same version on the Model 1 or 3. 
Reenter the program with all text intact if 
you accidentally exit without saving text. 
TYPITALL (disk only) $129.95 

SMALL BUSINESS 
ACCOUNTING 

Based on Dome Bookkeeping Record 
#612, this program keeps track of income, 
expenses, and payroll (not included in 
cassette version) for a small business. 



Model 1/3/4 disk version $59.95 

Model 1/3/4 cassette version $29.95 

Model 2/12 or IBM/PC version .... $69.95 



HOME BUDGET 

Analyzes your income and expenses, 
computes monthly and year-to-date sum- 



maries including tax deductions. 

Model 1/3/4 disk version $49.95 

Model 1/3/4 cassette version $29.95 

Model 2/12 or IBM/PC version .... $59.95 



24-hour TOLL-FREE Order number: 

Outside California call: 

(800) 428-7825, ext 169 

Inside California call: 

(800) 428-7824, ext 169 

Visa, Master Card, or COD Orders 
only. For information call: 

(914) 634-1821 
9-5 Eastern time only. 

Add $3.00 postage & handling. 

New York residents add sales tax. 

Wwb Software 

14 Lexington Rd. New City, NY 10956 
•TRS-80 is a trademark of Tandy Corp. 



Chips 

This is called the “exclusive or” 
and it means that when two bytes 
are compared bit-by-bit, the result 
can be 1 only if the two compared 
bits are different. XOR any byte 
with itself and it self-destructs 
because, in every case, both bits are 
the same. 

After the contents of A are LD’ed 
into 4015H, we want a new 
instruction at 4033H to say, “Jump 
to TEST.” In source code, this is JP, 
TEST. Object code for JP is C3H, so 
we put this in 4033H, using HL to 
point the way (lines 290 and 300). 
The next two addresses must 
contain the address of TEST. In 
common systems jargon, this is 
called the “pointer” to TEST or, if 
you’re a complete snob, the TEST 
“vector.” This is the first time we’ve 
seen a Z80 instruction which moves 
two bytes at once. In line 310, we put 
the address of TEST into register 
pair HL. Line 320 asks that the 
contents of HL be deposited at 
4034H, which is the next byte 
beyond the JP code. The incredible 
Z80 dutifully puts the low-order byte, 
register L, at 4034H and the high- 
order byte, H, at 4035H. The patch is 
complete and the program returns to 
BASIC READY via ROM address 
1A19H, which is common to both 
Model I and Model III computers. 

Of course, when this routine is 
loaded, the TEST itself is also 
installed. Let’s look at it now. The 
ROM was about to call 33E8H when 
we “kidnapped” it. Since we still 
want to examine the keyboard, we 
must take over the chore of calling 
33E8H ourselves. We do this at line 
170. Next, we check register A to see 
if a key was pressed. We use the OR 
A test for zero we learned last time. 
Zero in A means no key was pressed, 
so we jump (relative, if zero) to TEST 
(JR Z,TEST) and repeat the test. For 
the absolute jump (JP in line 330) 
you can see ROM address 1A19H 
written backward in the opcode. In 
the object code for JR at line 190 you 
don’t see the address of TEST. The 
FA portion of the opcode at line 190 
tells the Z80 that it must jump 
backward six addresses from the 
following address. This is worth 
some study. 

As each byte of a machine 
language program is “read” by the 
Z80, the program counter register, 



PC, is increased by one. A JR 
instruction asks that the program 
counter be changed by the amount 
specified in one byte (in this case, 
FA). To allow relative jumps both 
forward and backward, the Z80 
treats these distance bytes as signed 
numbers. In a signed byte, bit 
number 7 (with a value of 128) is 
treated as the “sign byte,” 0 for plus 
and 1 for minus. 

You can easily get the negative 
decimal value of a signed byte 
(which looks like a number larger 
than 128 because byte seven is high) 
by interpreting it normally and 
subtracting 256 from it. This simple 
concept is usually taught under the 
name of “two’s complement” 
notation which can be pretty 
complicated. Since this is one of the 
key concepts in electronic 
computing, we’ll study it some more 
later. Now, we see that FA, which 
normally is 250, can be interpreted 
as 250 minus 256, or -6. Count back 
six bytes (pairs of hex digits) 
through the opcode from FA in line 
190 and you’ll arrive at the 
beginning of TEST. 

Now, the logic of our patch is 
simply to detect any lowercase 
letter, generated in Level II by 
holding down the shift key! For 
these letters, we’ll simply add a 
value to the ASCII large enough to 
turn it into a TRS-80 graphics block. 
Then we’ll send it back to the ROM 
for display and perhaps inclusion in 
a BASIC packed string. ASCII codes 
for the lowercase letters, a through z, 
are 97 through 122 decimal. When a 
key is pressed, we proceed to see if it 
is a lowercase letter by asking, “Is it 
larger than 96?” To do this, we 
subtract 97 from it and see if the 
result is negative. We use CP instead 
of SUB A because, as we learned last 
time, CP only “makes believe” 
subtract and tells us what happened 
in the flag register F. Contents of the 
A register remain undamaged and 
ready for future use. If A contains 
ASCII for a character lower than 
lowercase “a,” its value will be 96 or 
less. Subtracting 97 from it will 
make it negative (that is, turn on bit 
7), remember? For the command CP, 
it only puts this 1 in the sign bit of 

the flag register F, Fortunately, the 

Z80 just happens to have a 
conditional return, RET M (return 
on minus), instruction. We can use it 
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to return to the ROM keyboard 
routine if the result of this test made 
the sign bit 1 or “minus.” 

If we have a lowercase letter, we 
now convert it to a graphics block by 
adding a number to it. Keep in mind 
that “a” equals 97 and “z” equals 
122 (decimal). The last and largest 
graphics block is decimal 191. We 
can generate the last twenty-six 
blocks by adding the difference 
between 191 and 122 to whatever 
comes along. This is 69, which is 
45H. In line 230, we do this and then 
return to the unsuspecting ROM. 
Note that byte 45H is going to be at 
address 7FEB (32747 decimal). You 
can see this in the opcode column. 
C6H, code for ADD A, is at 7FEB, so 
the next byte (45H) has to be in the 
next address. When you use this 
routine, you can change the 
available graphics by POKEing any 
number between 32 and 69 decimal 
into address 32748. 

Remember also that it was a 128 in 
4015H, 16405 decimal, which 

“turned on” or “enabled” this 
graphics generator. POKE a one 
back into 16405 and the graphics are 
turned off, leaving the logic in place. 
Get the graphics feature again by 
poking a zero into 16405. By 
changing the byte at 7FEB (poking 
something else into 32747), you can 
change your lowercase letters into 
something else. 

Serendipity Note 

When I began using this routine, I 
discovered (to my amazement) that 
Level II tests 4015H while it is 
LISTING a BASIC program and 
even while it is executing it. With 
GRAFIX enabled, you can list a 
BASIC program, one statement at a 
time, by repeatedly touching any 
key (except lowercase letters). You 
can run your program also if you’re 
willing to touch a key continuously 
to nudge it along from statement to 
statement. To catch a tricky bug in a 
BASIC program, try inserting a 
statement which says POKE 
16405,0 at the point in your balky 
program where you want it to stop 
and wait for nudges! 

Program Listing for GRAFIX 

This program listing is for a Model 
III computer. Model I owners should 
follow the discussion for the needed 
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changes. If you have a Model 111 , be 
sure to set the computer in upper- 
lowercase mode (shift 0) for proper 
execution. 

After you have entered the source 
code, assembled it, and saved it 
under the name GRAFIX/OBJ, 
enter the following while in BASIC 



command mode: 

>CMD"L", " GRAFIX/ OBJ” 
>DEFUSR0 = &H7FED 
>X = USR(0) 

The object code has now been 
loaded and executed and any 
lowercase entries will be interpreted 
as graphics symbols. 



*★★★*★★*★*★ 



00110 

00120 



GRAFIX 







00130 


; to 


illustrate "In the Chips' 


' for November, 1983 by 






00140 


7 




A. S. Hall 








00150 


.******************************************************* 


7FE1 




00160 




ORG 


7FE1H 


; Resides beginning 32737 


7FE1 


CD8E33 


00170 


TEST 


CALL 


338EH 


? Level ii keybd. scan 






00175 


7 Mode 


I keybd. 


scan is at 03E3 


- use it here. 


7FE4 


B7 


00180 




OR 


A 


; Does A=0? (No key hit) 


7FE5 


28FA 


00190 




JR 


Z,TEST 


7 If so, scan again 


7FE7 


FE61 


00200 




CP 


61H 


7 Lower ASCII than "a"? 


7FE9 


F8 


00210 




RET 


M 


7 If yes, yield control 






00220 


;If not, then 


it's shifted alpha. Change to graphic. 


7FEA 


0645 


00230 




ADD 


A,45H 


7 "Promote" by adding 69 


7FEC 


C9 


00240 




RET 




7 Yield control of new A 






00250 


? "END" 


1 pseudo-op be lew causes autostart here to patch 






00260 


;the TEST routine using decoy at 4015H 


7 FED 


3E80 


00270 


PATCH 


LD 


A,80H 


7 Decoy for ROM keybd scan 


7FEF 


321540 


00280 




LD 


(4015H) ,A 


. ? IN A. . .thence into 4015H 


7FF2 


213340 


00290 




LD 


HL,4033H 


7 Point HL to 4033H 


7FF5 


36C3 


00300 




LD 


(HL),0C3H 


7 Write code for JP here 


7FF7 


21E17F 


00310 




LD 


HL,TEST 


7 Put TEST address in HL 


7FFA 


223440 


00320 




LD 


(4034H) ,HL 


; JP now goes to TEST 


7FFD 


C3191A 


00330 




JP 


1A19H 


7 Patch done - goto BASIC 


7FED 




00340 




END 


PATCH 


7 Autostart per above 



The Automatic Ribbon Re-Inker 

Re-ink any type of ribbon (except carbon) for less than 5 cents. 

Extremely simple operation. 1) Load cartridge or spool. 2) Add 
ink to reservoir. 3) Start motor. 

We have a MAC INKER for any printer— many MAC INKER units 
support multiple printers. Ink contains lubricant for safe dot 
matrix printhead operation. Multicolored rw , 

inks available. Ask for brochure. Fr i^n S s 

100 Northwest 86th Avenue 
Portland, Oregon 97229 
(503) 297-2321 




Price $54.95 
plus $3.00 S&H. 
Prices slightly 
higher for some 
printers. Total 
satisfaction or 
full refund. 



US Patent 



Dealer inquiries 
welcome 



Mac Inker 
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Tandy topics 

For all readers 

Ed Juge, Director of Merchandising, Business Computer Products 

1500 One Tandy Center, Ft. Worth, TX 76102 




The "transportable" Model 4P measures 16 1 / 2 ,/ x13 y 4 "x9 3 / 4 ", has a 9" video and built-in 5%" disk drives. It is priced at $1799. 



Two letters came this month, 
telling me how much my “fantasy” 
column is appreciated, and calling 
me to task for telling you about 
products which didn’t exist yet. My 
intention is not to mislead, but to 
give you the earliest possible 
information. Because of copy dead- 
lines, I have to assume some dates, 
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and that doesn’t always work! 

One specific complaint was the 
lack of Model 4-mode software 
available with the Model 4. Yes, we 
were very late with it. But, we’ve 
heard you. You’re right, and from 
now on, we will have software 
available for new computers when 
we introduce them. 



New “Transportable” 

By now, you should have seen the 
new computer catalog, and you 
know about the Model 4P portable 
(or “transportable”). It is Model 
III/4 disk/software-compatible, al- 
though it doesn’t have the Model III 
ROM’s built in. Both the III and 4 
languages and operating systems 
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load from disk and there is no 
cassette port. We think it’s a beauty! 
And, even if you don’t need 
portability, but just want a smaller 
footprint (less desk space taken up), 
the 4P should be just the ticket. In 
case you haven’t seen it, look at page 
two of the fall computer catalog for 
details. 

CompuServe EMAILer 

When the Model 100 was first 
introduced, Bill Walters and I 
invited Sandy Trevor with CIS 
(CompuServe Information Service) 
to visit us and preview the machine. 
He was as taken with it as we were! I 
told Sandy we’d sure like to see a 
special Model 100 EMAIL system. 

Why not, I asked, a system where 
you could store multiple outgoing 
messages (with addresses, of course) 
in a file? Then, by pushing one 
button, the 100 would dial 
CompuServe, log you on, send your 
mail, pick up any incoming mail, 
store it in memory, and sign you off. 
And, while I was wishing, I wished 
we could get around that pesky “no 
more than 140 characters without a 
carriage return” restriction they 
have. I mean, if you’re gonna wish, 
might as well go for broke, right? 

Well, gentleman that he is, Sandy 
came through! We’re playing with 
the program right now, and it is 
available in public access. There 
was some host programming 
required, and we thank Sandy for it. 
Anyone with a Model 100 and sub- 
scription to CompuServe now has 
access to a completely automatic, 
minimum on-line time, EMAIL 
system! I’ve even modified mine to 
call every hour and check the mail if 
I want it to. 

The messages are easy to 
program. Just create a TEXT file 
called “MAIL.DO”. Each message 
starts with: 

TO: 70000,777 (addressee's ID) 
From: (your name) 

Subject: (up to 32 characters) 

Then, write your text. For multiple 
messages, put <GRPHXf> 
<ENTER> between them. Simple, 
huh? 

I’ve given Sandy some thoughts 
for “version 2,” if and when it comes. 
A big “thank you” to Sandy and the 
folks at CompuServe. 

Speaking of the Model 100, 1 gave 
you some bad information last 
month. The Model 100 bar code 



wand will come with two, not three, 
bar code drivers, “3 of 9” and UPC. 
“NATI” will be made available 
later, but will not be included in the 
wand package. Sorry about that, it 
was a late change. We would have 
had to delay the package by quite a 
spell to include NATI. 

Model 100 In the Air 

There have been a number of 
recent articles about the use of 
Model 100’s on-board commercial 
airlines and I’ve gotten a lot of 
comments about the “scare tactics” 
contained in some of them. Well, as 
of this time, FAA regulations 
specifically permit a pacemaker, 
battery-powered tape recorder, 
hearing aid, and electric razor. In 
addition, any other device 
designated by the airline is 
permitted. What does this mean? It 
means that the Model 100 is neither 
permitted, nor prohibited. It’s in the 
same boat with your pocket 
calculator and your electronic 
watch. 

So, what do you do? Well, our 
strong recommendation is that you 
drop by the cockpit and ask 
permission to use it. After all, the 
crew is just as concerned as anybody 
about the safety of the flight. 
Chances seem to be about 95 out of 
100 that they’ll say OK. 



What’s the concern? Well, 
electronic devices are capable of 
emitting radio frequency waves; 
waves which could conceivably 
cause interference to navigation or 
communications electronics. Does 
it? Without testing the Model 100 (or 
your calculator) on every 
configuration of every airplane used 
by each airline, nobody can be 
absolutely certain. To my 
knowledge, there has been no report 
of known interference. 

CP/M Update 

One of those late items I told you 
about long ago (CP/M for Models 4 
and 12) should be coming along 
around the first of November. I’m 
afraid we caused some of the delays 
ourselves. As you’re no doubt aware, 
we now have a Model 16 with built-in 
hard disk. In order to fit it into the 
computer housing, it was necessary 
to rework the controller and get the 
electronics onto one board. This 
required a change in controller 
chips, which forced the DRI (Digital 
Research, Inc.) folks to redo some of 
their work and that, of course, 
caused further delay. But, as of this 
writing, both products look like 
they’ll be ready around the first of 
November. 

Well, that’s the news for this 
month. See you! 



The Model 16b, with built-in hard disk. 
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Making the Model 100 useful 



Five short programs 

Model 100 

I recently acquired the Model 100 to supplement my 
Model III and an Osborne. I find that I am using it more 
and more — not only in traveling, but at home. I have 
connected this computer to an SCM Daisy Wheel and 
find that it makes a nice combination. One minor 
problem with this combination is that in listing a 
BASIC program the < and > characters are missing on 
the printer. A blank space is left for a penciled insertion. 
I have put a few short programs into the memory and 
will describe them. 

First, is a date program which I use in many printouts 
and is shown in Listing 1. This program uses the BASIC 
statement MENU, which returns the program to the 
menu. You may wish to end most of your BASIC 
programs with this statement. To use this program from 
menu, merely position the cursor over DATE. BAS and 
hit enter. The date, day and time are printed on your 
document and you are returned to menu. 

Another program I use quite often I have named 
KXXX.BA. When I write short letters, notes or memos 
using the Text program (and which I do not wish to save 
to disk), I use the filename XXX. Then I use the short 
program, shown in Listing 2, which uses the BASIC 
command MENU to return to menu. I also inserted the 
command BEEP merely to indicate that the KILL has 
been accomplished. 

A third program (Listing 3) is my ENVL.BAS 
program which is self-explanatory. It is very handy for 
addressing envelopes. 

My check writing program (Listing 4) is an adaptation 
of an article from 80- U.S. Journal , May/ June 1981. This 
program works very well with the SCM printer and uses 
the already-programmed DATE function of the 
computer. The formatting for your checks may need 
modification in lines 25, 30 and 35. 

I am continually trying to improve my skill in touch- 
typing, so I keep a typing drill program in the computer 
at all times. This program is shown in Listing 5. The 
program requests information on the keys you wish to 
practice, the number of keys in a group and the number 
of tries. At the end of the run, your errors are noted and 
the percentage of correct entries are given. This program 
is an adaptation of a program originally published in 
Byte magazine. 

These are a few programs to help you get more use 
from a really great little computer. 

Listing 1— DATE/BAS 

10 REM DATA. BA 05/17/83 
20 LPRINTDATE? ; " “;DAY$;" ";TIME$ 
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30 LPRINT" " 

40 MENU 

Listing 2— KXXX.BA 

5 REM A PROGRAM TO KILL TEMPORARY 

6 REM FILE NAMED XXX. DO 

7 REM BY G. L. HALLER, 05/16/83 
10 KILL "XXX. DO" 

20 BEEP 
30 MENU 

Listing 3— ENVL.BAS 

5 REM PROGRAM ENVL.BAS 05/16/83 
10 LINEINPUT"NAME "?A$ 

20 LINEINPUT" STREET ";B$ 

30 LINE INPUT "ENTER CITY, STATE, ZIP "? 
C$ 

35 PRINT" PRESS ANY KEY TO PRINT" 

38 H$=INKEY$ : IF H$=" "THEN 38 
40 LPRINTTAB( 30 ) ; A$ 

50 LPRINTTAB ( 30 ) ; B$ 

60 LPRINTTAB( 30 ) ; C$ 

70 INPUT "ANOTHER SAME, Y/N";Y$ 

80 IF Y$="Y" OR Y$="y“ THEN 40 
90 INPUT"ANOTHER DIFFERENCT, Y/N ";N$ 

100 IF N$="Y" OR N$="y" THEN 10 
110 MENU 

Listing 4 — Check Writer 

1 REM A CHECK WRITER FOR THE TRS-80 

2 REM BY G. L. HALLER, 1983 

4 DIMT$ ( 27 ) 

5 PRINT" INSERT CHECK AT COLUMN ZERO AND 

INPUT " 

10 LINEINPUT" PAYEE NAME ";A$ 

20 INPUT "AMOUNT ";A 
25 LPRINTTAB( 45 ) DATE$ 

30 LPRINT: LPRINT 

35 LPRINTTAB( 12 ) A$ ; TAB( 59 )USING" $$##,### 
.*#";A 
60 DEFDBLA 
70 V$="##" 

100 IF A> 99999. 99 THEN PRINT "NUMBER IS 
TOO BIG ":GOTO 20 
120 LPRINT 
130 T=INT(A) 
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140 B=100*(A-T) 

150 T1=INT(T/1000) 

160 T2=INT(T1/10) 

170 T3=<ri-T2*10 
180 T4=T-1000*T1 
190 T5=INT(T4/100) 

200 T6=T4-100*T5 
210 T7=INT(T6/10) 

220 T8=4?6-10*T7 
230 RESTORE 

240 DATA ONE, TWO, THREE, POUR, FIVE, SIX 
250 DATA SEVEN, EIGHT, NINE, TEN, ELEVEN 
260 DATA TWELVE , THI RPEEN , FOURTEEN 
270 DATA FIFTEEN, SIXTEEN, SEVENTEEN 
280 DATA EIGHTEEN, NINETEEN, TWENTY 
290 DATA THIRTY, FORTY, FIFTY, SIXTY 
300 DATA SEVENTY, EIGHTY, NINETY 
310 FOR 1=1 TO 27 
320 READ T$(l) 

330 NEXT I 
340 T$(0)="" 

345 LPRINT" 

350 IF Tl=>20 THEN 410 
360 IF T<100 THEN 460 
370 IF T< 1000 THEN 440 
380 LPRINTT? (T2*10+T3 ) 

390 GOSUB 580 
400 GOTO 430 

410 LPRINT T$(T2+18) ;" ";T$(T3); 

420 GOSUB 580 

430 IF T5=0 THEN 460 

440 LPRINT T$(T5) ; 

450 GOSUB 620 
460 IF T6=>20 THEN 530 
470 IF T6=0 THEN PRINT 
480 LPRINT T$ (T6) ; " AND "; 

490 IF B=0 THEN LPRINT "NO/ 100 DOLLARS": 
GOTO 690 

500 LPRINTUSINGV$;B; 

510 LPRINT "/100 DOLLARS" 

520 GOTO 690 

530 LPRINT T$(T7+18) ;" ";T$(T8); " AND " 
/ 

540 IF B=0 THEN LPRINT "NO/ 100 DOLLARS": 
GOTO 690 

550 LPRINTUSINGV? ? B; 

560 LPRINT" /100 DOLLARS" 

570 GOTO 690 

580 LPRINT " THOUSAND"; 

590 IF T4=0 AND T6=0 THEN RETURN 
600 LPRINT" "; 

610 RETURN 

620 LPRINT " HUNDRED"; 

630 IF T6=0 THEN RETURN 
640 LPRINT" "; 

650 RETURN 

690 INPUT" ANOTHER CHECK ";Y$ 
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700 IF Y$="Y" OR Y$="y" THEN 5 
710 MENU 

Listing 5— Typing Drill 

10 REM TYPING DRILL 
20 REM FOR MODEL 100 
30 REM 04/29/83 

40 REM FROM BYTE DEC. 79 PAGE 250 
50 CLEAR 200: DIM A(50) 

60 CLS 

100 INPUT" WHAT CHARACERS DO YOU WANT";C$ 
105 L=LEN(C$) 

110 INPUT" HOW MANY IN EACH WORD ";WL 
120 INPUT"DO YOU WANT AN ECHO";A$ 

125 IF LEFT$(A$,1)="Y" THEN E>=1 
130 INPUT "HOW MANY TRIALS ";NT 
150 'START HERE IF PARAMETERS ARE THE SA 
ME 

155 NR=0:NW=0 

160 FOR 1=1 TO 25:A(I)=0:NEXT I 
200 FOR T=1 TO NT 
210 NP=NP+WL 
220 A$=" " 

230 FOR 1=1 TO WL 
240 F=INT ( L*RND( 1 ) +1 ) 

250 A$=A$+MID$ ( C$ , F, 1 ) 

260 NEXT 

270 CLS : PRINT0100, A$ 

300 FOR 1=1 TO WL 
310 B$=INKEY$ : IF B$=""THEN 310 
320 IF E=0 THEN 350 
330 PRINTTAB( 20 ) B$ ; 

350 IF B$<>MID$(A$,I,1)THEN 500 
360 NR=NR+-1 
370 NEXT 

375 IF E=1 THEN PRINT 
380 NEXT 
390 CLS 

400 PRINT: PRINT" YOUR SCORE IS ";INT(100* 
NR/ (NR+NW) ) ; "%" 

402 IF NW=0THEN 415 

405 PRINT" ERRORS:": FOR 1=1 TO L:IFA(l)=0 
THEN 410 

407 PRINTMID$(C$, 1,1) ;A(l) 

410 NEXT I 

415 PRINT: INPUT" AGAIN" ;A$ 

420 IF LEFT? ( A? , 1 ) < > " Y"THEN MENU 

422 INPUT" SAME CHARACTERS ETC ";Z$ 

423 IF LEFT$(Z$,1)="Y" THEN 150 ELSE 50 
500 FOR J=1 TO L 

510 IF MID$(C$,J,1<>MID$(A$,I,1)THEN NEX 
T 

515 A(J)=A(J)+1 

520 PRINT: PRINT"ERROR ON ";MID$(A$, 1,1) 
522 NW=NW+1: 'UP DATE # WRONG 
525 PRINT "LET'S TRY THAT iORD AGAIN." 
530 FOR 1=1 TO 800: NEXT 
540 CLS: GOTO 270 
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Basically BASIC 



Arrays 

For all readers 



James A. Conrad, Seattle, WA 



Array! The word has been known to strike terror into 
even the sturdiest of souls. 

There’s nothing inherently difficult about arrays. The 
primary difficulty most beginning programmers have 
with arrays is that they are usually used with FOR . . . 
NEXT loops, READ . . . DATA, or other seemingly 
esoteric statements. The combination of all these new 
concepts and techniques can appear overwhelming. 

The other difficulty beginning programmers seem to 
have with arrays is that they can’t see their value. The 
first time one of my beginning programming students 
asked, “What good are arrays?” I was so stunned that I 
couldn’t come up with a quick answer. It should be 
innately apparent, I thought. “Why, they’re used for 
everything . . . everything!” I said. “The first thing I do 
when I start writing a program is set up my arrays.” 
Which is, of course, no answer. The poor student 
staggered away more confused than when he asked me 
the question. 

An array is a series of related variables. It is used to 
store related information, like all of your checks for the 
month, the names in a mailing list, or an inventory. 

Variables 

The computer stores numeric and alphanumeric 
information in memory cells called variables. Each of 
these variables has its own name — A, Al, B, etc. String 
variables are differentiated by the “$” string sign 
following the variable name. (For a complete discussion 
of variables and assignment statements, see “Basically 
BASIC,” September, 1982). 

An array is simply a list, or series, of variable cells. 
Each element of an array is a separate variable cell. The 
entire set of names which can be used to name regular 
variables can also be used to name arrays. Arrays are a 
completely different set of variables than regular 
variables. An array can have the same name as a 
regular variable (not a good idea — it won’t confuse the 
computer, but it might confuse the programmer). 

If we think of individual variables as addresses on 
mailboxes, we can think of arrays as apartment house 
mailboxes. The array has an address (variable name) 
and each of its units has an apartment number 

(subscript). 

The subscript is the number of the array element. 
Think of it as a pointer to an element. Subscripts can be 
numbers, variables, or expressions. If a fractional value 
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is given or calculated, its integer will be used. 

The easiest way to visualize an array is to diagram it 
as a series of little boxes. Here’s a diagram of a four- 
element array named G: 



Array G 



Subscript 



Initially, all the array elements have a value of zero 
(as do all regular variables). We can assign values to the 
array elements just as we assign values to regular 
variables. Assign the value seven to the third element, 
G(3) (pronounced “G sub-three”), LET G(3) = 7. Now, the 
array looks like this: 



Array G 



Subscript 



To prove to yourself that the value has been assigned, 
PRINT G(3). Try also PRINTing the other elements, e.g., 
PRINT G(l). Now, assign values to the other elements 
and PRINT them. The purpose of this little exercise is to 
show that each array element is an individual variable, 
and can be treated as such. 

if this was the only way to assign and print array 
values, there would be no purpose for arrays. What 
makes arrays so valuable is that they are easy to use. 
Here’s a little program which assigns values to the array 
from a single FOR . . . NEXT loop: 

10 FOR X=1 TO 4 
20 LET G(X) = X * 2 
30 NEXT X 

Now, the array looks like this: 



Array G 



Subscript 



To print it out, add 
40 FOR X =1 TO 4 
50 PRINT G(X) 

60 NEXT X 

As the loop counts from one through four, using the 
counter variable X, line 20 assigns twice the value of the 
counter to the Xth element of the array. If you have 



2 


4 


6 


8 


(i) 


(2) 


(3) 


(4) 



the following lines: 



0 


0 


7 


0 


(1) 


(2) 


(3) 


(4) 



0 


0 


0 


0 


(1) 


(2) 


(3) 


(4) 
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trouble understanding this, take pencil and paper and 
step through each iteration of the loop. (During the first 
run through the loop, X=1 , and line 20 assigns the value 
of 2 (1 * 2) to G(l).) If you still have trouble, it's quite 
possible that your trouble lies in understanding FOR . . . 
NEXT loops (see “Basically BASIC,” May, 1983). 

As a test of your understanding at this point, 
substitute the variable Y for X in lines 40, 50 and 60. This 
is the point in my classes where students who think they 
are beginning to comprehend arrays lapse again into 
confusion. But when they see that their problem is really 
in understanding that X and Y are FOR . . . NEXT 
counters, and it doesn’t make any difference what 
variable is used, I hear the “ah-ha’s” of perception. It’s 
all downhill from there. 

The DIM Statement 

Arrays of more than 1 0 elements must be set up before 
they can be used. The DIMension statement does this. 
Its form is: 

linenumber DIM array name (size) 

The DIM statement creates the array in memory and 
sets its size, reserving enough storage space for all of its 
elements. The array name may be the name of any valid 
variable. The use of a variable as an array name won’t 
affect its use as a regular variable elsewhere in the 
program. The size indicator, in parentheses, may be a 
number, variable, or expression. If it contains a 
fractional value, its integer will be used. Dimensioning 
an array of 10 or fewer elements is optional. 

A single DIM statement may be used to dimension 
several arrays, using commas to separate the arrays, 
e.g., 10 DIM A(29), B$(17), C(5), . . . 

The ability to dimension an array with a variable 
comes in handy when the array will be different sizes at 
different times. For example, a checkbook program 
could begin: 

10 INPUT “HOW MANY CHECKS THIS MONTH”; 
R1 

20 DIM CK(R1) 

The array CK(), which will contain the amounts of the 
month’s checks, is dimensioned by variable Rl, input by 
the user in line 10. 

Error Messages 

Once dimensioned, an array can’t be redimensioned 
(except on a Model II). You’ll get a “DD” (redimensioned 
array) error if you try. This error occurs most frequently 
when a program is written to loop back through the 
same DIM statement. 

The other array error message, one that Siegfried, my 
computer, gives me frequently (except that, for some 
incomprehensible reason, he gives it to me while I’m 
writing these articles), is “BS.” Actually, it stands for 
“bad subscript.” If your computer spells out error 
messages, it will read “subscript out of range.” This 
means that you have attempted to use an array element 
that’s beyond the dimensioned size of the array, or an 
element with a subscript larger than 10 for an 
undimensioned array. 

String Arrays 

I was fishing one day with Jim Ryan, a British friend. 



Somehow, the topic of conversation degenerated into 
computer programming and I mentioned string arrays. 
Jim said, “Oh, I hope we don’t catch any of those — 
they’re quite vicious, really.” Only if you don’t 
understand arrays, Jim. String arrays are no different 
from numeric arrays except that they must be given 
string variable names. 

Here’s a little program which uses a string array to 
make a grocery list: 

10 INPUT “SIZE OF GROCERY LIST”; Rl 
20 DIM GL$(R1) 

30 FOR X=1 TO Rl 
40 INPUT GL$(X) 

50 NEXT X 

60 PRINT “THE GROCERY LIST IS:” 

70 FOR X=1 TO Rl 
80 PRINT GL$(X) 

90 NEXT X 

Conclusion 

In this article, we’ve dealt only with single- 
dimensional arrays. Next month, we’ll discuss multi- 
dimensional ones. Arrays become an integral part of 
almost all serious programs. It’s difficult to write a 
program without at least one array. The major problems 
most people have with arrays are notin understanding 
them, but in coordinating the looping structures that put 
information into, and get information from, the arrays. 
That’s BASIC. 

Table 1 



Programming Tips 

1. Arrays have an element I haven’t mentioned — 
number zero. I haven’t mentioned it because I advise 
beginning (and many not-so-beginning) programmers 
not to use it. If you were to use it, you’d DIMension a 127- 
element array with the statement DIM A(126). Your FOR 
. . . NEXT loop would read FOR X=0 to 126 . . . And which 
element contains the 43rd item? Well, let’s see ... I know 
it’s not A(43) . . . now, is it A(42), or A(44)? Much easier to 
forget the “0th” element. 

2. Dimension small arrays. Although this saves a few 
bytes of memory, the main reason is what I call 
“preventative debugging” — writing a program so it will 
generate an error message as close as possible to the 
actual occurrence of an error. If you dimension a five- 
element array and try, in error, to use the seventh 
element, you’ll get a “subscript out of range” message 
where the error occurs. If you hadn’t dimensioned it, 
you’d have to decipher your goofy output and work your 
way back through the program to find the error — a more 
difficult debugging job. 

3. Dimension your arrays in an early program line. 
With REM statements telling what the arrays are used 
for, this will help document your program. It also reduces 
the possibility of a “redimensioned array” error. 

4. Arrays use memory — two bytes per element for an 
integer array, four bytes for single-precision, eight bytes 
for double-precision, and one byte per character in a 
string array. If memory is tight, use integer arrays for 
integers. You might even consider reusing an array. 
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A potpourri of puzzlers 

Solutions to many of this year's Puzzlers 
in Notes, etc. 



For all readers 



Basic Computing staff 



We have been running the Puzzler 
section in the Notes, etc. column for 
some months now. Many of the 
problems required writing code to 
obtain a solution. We thought you 
might enjoy seeing some of the 
creative work that was submitted. 

GOTON 

The January, 1983 Puzzler asked 
for a GOTO N routine, where you 
could specify the linenumber with 
an input value. Many of the 
solutions used a poking routine to 
actually alter the resident program 
and insert the linenumber into the 
line of code that had the GOTO in it. 
We got an excellent solution from 
Mr. Pete Carr of Port Orange, FL 
that does it a little differently. He 
sent in a BASIC program that 
demonstrated the use of just such a 
routine he had obtained from Mr. 
Bill Stockwell. The program will 
work on Models I and III. The 
BASIC program, Listing 1, and the 
assembler source code, Listing 2, 
need some explanation. This is what 
Mr. Carr had to say: “It is written for 
a 48K machine but can be modified. 
The BASIC program first pokes the 
code into high memory and 
initializes it by a USR call. After this 
is done, the command NAME 
becomes a new extended GOTO N 
command. At line 170 in the BASIC 
program, N is set to start with line 
200, in increments of 10. Make sure 
you understand line 170 before using 
this routine or you could be 

GOTOing the wrong places. For 
programs with a few menu choices, 
this routine isn't really needed, but 
for those program menus where you 
78 Basic Computing 



have a lot of choices, it is really 
great.” 

Round Numbers 

The July, 1983 Puzzler defined a 
round number as one whose binary 
representation had as many ones as 
zeroes (ignoring leading zeroes). The 
question was to find out how many 
round numbers there were between 
two and 1,000 (inclusive). Many 
readers obtained the correct answer 
of 175. Listing 3 shows how we 
obtained the answer. 



CoCo Break Disable 

In April, 1983 we asked for a break 
key disable routine for the Color 
Computer. A routine was sent to us 
appended to, of all things, a reader 
questionnaire we had sent out. The 
code is given in Listing 4. 

Upper/Lowercase Sorting 

The August, 1983 Puzzler asked 
for a sorting method that would also 
take into account that lowercase 
letters are sorted out of order if you 
just rely on simple string 



C 

C 

COMPUTER DATA CO. i 




‘For heaven's sake man, feed it some input!" 
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comparisons. We obtained two very 
good solutions. Listing 6 is for the 
Model II and demonstrates the use 
of a machine language utility to 
change all letters to uppercase, sort 
them, and them display the original 
entries. The solution was sent in by 
Mr. Dan Meyers of Newburgh, IN. 
The program will display the 
original list, the original list after 
sorting by “normal methods,” the 
original list after altering caps, and 
the original list in “correctly” sorted 
order. 

Listing 5 was submitted by 
Rolland Metzger of Dixon, IL. His 
program is for the Models I/III and 
will also print out the list sorted 
correctly. His code also includes a 
quick-sort routine that readers may 
like to study. 

Time Difference 

In September, 1983 we asked for a 
method of computing the difference 
between two time values, Tl$ and 
T2$. Mr. Scott O. Perkins of 
Ashland, KY sent in Listing 7 which 
does a fine job. The program will 
work on any model that supports the 
LEFT$, RIGHT$, and MID$ 
functions. The key part of the 
routine is in line 30. Tl$ must 
contain the starting time and T2$ 
must contain the ending time. The 
elapsed time is returned by the 
subroutine as T3$. All times are 
based upon the 24-hour clock and 
must be in the format HH:MM:SS 
(hours:minutes:seconds). Lines 5, 
50, 55, and 60 are added to 
demonstrate the subroutine. You 
may delete them when making use 



of the routine in your own 
applications. 

Listing 1 GOTO N 

5 ' January 83 Puzzler 
10 'GOTO N Routine 

15 'FOR MODELS I/III ONLY 

16 'WRITTEN FOR 48K MACHIN 
ES 

20 'PROTECT HIGH MEMORY 
30 'by Bill Stockwell: Exa 
rtple of use by Pete Carr 
40 ' 

50 CLS: CLEAR 1000 
60 AD%= ( &HFFEA) : DEFINT N 
70 FOR I%=AD% TO AD%+19: R 
EAD D%: POKE I%,D%: NEXT I 
% 

80 DEFUSRf&HFFEA 
90 X=USR(X) 

100 DATA 33,241,255,34,143 
,65,201,229,205,13 
110 DATA 38,213,255,94,35, 
86,225,195,197,30 
120 ' 

130 PRINT @25, "MENU" 

140 PRINT0256, "1. ONE": PR 
INT"2. TWD": PRINT"3. THRE 
E" 

150 PRINT: INPUT" ENTER CHO 
ICE ";N 
160 ' 

170 N=N-1: N=N*10: »=200+N 
180 NAME N 
190 ' 

200 PRINT" AT ONE" : END 
210 PRINT"AT IWO": END 
220 PRINT" AT THREE": END 



Listing 2 GOTO N 

00010 ;G0T0 N routine where N=integer variable containing 
00020 ; the line# you want to branch to. 

00030 ;by Bill Stockwell : Example of use by Pete Carr 
00040 ; 



FFEA 




00050 


ORG 


0FFEAH 


FFEA 


21F1FF 


00060 


LD 


HL, NAME 


FFED 


228F41 


00070 


LD 


(418FH) ,HL 


FFF0 


C9 


00080 


RET 




FFFl 


E5 


00090 NAME 


PUSH 


HL 


FFF2 


CD0D26 


00100 


CALL 


260DH 


FFF5 


D5 


00110 


PUSH 


DE 


FFF6 


El 


00120 


POP 


HL 


FFF7 


5E 


00130 


LD 


E, (HL) 


FFF8 


23 


00140 


INC 


HL 


FFF9 


56 


00150 


LD 


D , (HL) 


FFFA 


El 


00160 


POP 


HL 


FFFB 


C3C51E 


00170 


JP 


1EC5H 


0000 




00180 


END 





IWie 



soifl e * 



USCF rated 
1793 / 5 * 



SFINKS 4.0 

with user friendly features 



Second Kissimmee Open Rd 2 



White: Stinks 4.0 Black: Human 1830 





White 


Black 




White 


Black 


1 . 


e2-e4 


c7-c5 


17. 


d4-e2 


d7-e5 


2. 


g1-f3 


d7-d6 


18. 


d3-c2 


e5-c4 


3. 


d2-d4 


c5-d4 


19. 


e3-f2 


b5-b4 


4. 


f1-b5+ 


c8-d7 


20. 


c2-b3 


a6-a5 


5. 


b5-d7+ 


d8-d7 


21. 


d1-d4! 


b7-b5 


6. 


f3-d4 


g8-f6 


22. 


c3-b4 


a5-b4 


7. 


b1-c3 


g7-g6 


23. 


al-cl! 


c4-b6 


8. 


el-gl 


f8-g7 


24. 


c1-c8+ 


b6-c8 


9. 


c1-e3 


e8-g8 


25. 


b3-c4 


b5-d7 


10 . 


d1-d3 


a7-a6 


26. 


c4-b4 


c8-a7 


11. 


c3-d5 


b7-b5? 


27. 


b4-b8+ 


f6-e8 


12 . 


d5-b6 


d7-b7 


28. 


d4-c4 


a7-c6 


13. 


b6-a8 


b7-a8 


29. 


b8-a8 


c6-e5 


14. 


f 2-f3 


b8-d7 


30. 


c4-c8 


g8-f8 


15. fl-dl 


f8-c8 


31. 


a2-a4 


e5-d3 


16. 


c2-c3 


a8-b7 


32. 


c8-d8! 


resigns 




SFINKS 4.0 CHESS, 48 K, disk 
only. Only $49.95. Please specify 
Model I, III or IV. 

SFINKS 3.0 CHESS, 32K, disk or 
tape. Only $34.95. Please specify 
Model I (E.I.), III or IV. 

SFINKS CHESS TUTOR, 32K disk 
only. Only $19.95. Please specify 
Model I, III or IV. 

To order, please see your dealer or 
send check plus $2.00 shipping to: 

WILLIAM FINK 
1105 N. Main St., Suite 24-B 
Gainesville, FL 32601 
or call (904) 377-4847 




Florida residents add 5% sales tax. 
*On Model 3 w/speedup by Holmes Eng. 
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Listing 3 Round Numbers 

10 'July 1983 Puzzler 
20 1 finding all round numb 
ers <= 1000 

30 'round number defined t 
o be a number 

40 'whose binary represent 
ation has 

50 'equal number of 0‘s an 
d l's 

60 'written by Brad Hoza 
70 '05/06/1983 
80 ' 

90 CLS 

100 HBIT = 1 

110 FOR X=2 TO 1000 

120 IF X < 2"(HBITfl) TH 

EN 140 

130 HBIT = HBITM-2: X = I 
NT(2"HBIT) 

140 EVEN = 0 

150 FOR P=HBIT TO 0 STE 

P -1 

160 EVEN = EVEN + SGN(X 
AND 2~P)*2-1 



T.R.S. 80 C/C 32K DRAGON 
Software from England 

747 FLIGHT SIMULATOR 




ACTUAL SCREEN PHOTOGRAPH 



Superbly realistic instrumentation and pilot’s view 
in lifelike simulation which includes emergencies 
such as engine fires and systems failures. This 
program uses high resolution graphics to the full 
to produce the most realistic flight-deck display 
yet seen on a home computer. There are 21 real 
dials and 25 other indicators. Your controls 
operate throttle, ailerons, elevators, flaps, slats, 
spoilers, landing gear, reverse thrust, brakes, etc. 
You see the runway in true perspective. Uses 
joysticks and includes options to start with take-off 
or random landing approach. A real simulation, 
not just another game! Cassette only, $27.95 (add 
6% in Calif.). Sole U.S. distributor for DA.C.C. Ltd.. 
England. 

F. ASHTON 

P.O. Box 7037 
Chula Vista, CA 92012 



170 NEXT P 

180 IF EVEN = 0 THEN PRI 

NT X,: R=Rfl 

190 NEXT X 

200 PRINT"Total number of 
round numbers is :";R 



Listing 4 CoCo Break Disable 

10 'APRIL 1983 PUZZLER 
20 'COLOR COMPUTER BREAK K 
EY DISABLE 

30 FOR ADDR = &HF8 TO &HFE 
40 READ HEX 
50 POKE ADDR, HEX 
60 NEXT ADDR 

70 FOR ADDR = &H19A TO &H1 
9C 

80 READ HEX 
90 POKE ADDR, HEX 
100 NEXT ADDR 
110 POKE &H19A, &H7E 
120 GOTO 120 

130 DATA &H32, &H62, &H1C, 
&HAF, &H7E, &HAD, &HA5 
140 DATA &H39, &H0, &HF8 



Listing 5 Model I/III Sort 

0 REM ROLLAND METZGER 

832 N. BRINTON AVE., DIXON 

IL 61021 

1 REM AUGUST 1983 PUZZ 

LER - BASIC COMPUTING 

2 CLEAR 1000 
4 DEFINTA-Z 

6 INPUT "ENTER DIMENSION N 
UMBER, I.E., MAXIMUM LENGT 
H OF LIST"; DM 

7 DIM D$ ( DM) , A$ ( DM) , STK( IN 
T(.8*DM)) 

8 BOT=0:T>=0:A=0:B=0:R=0:P= 
0 : N=0 : 1=0 

10 INPUT "IF HARD COPY IS 
DESIRED ENTER <H> ELSE JUS 
T ENTER> " ; HC$ 

15 PRINT: PRINT 
20 PRINT "ENTER STRINGS TO 
BE SORTED" 

30 PRINT "IF NO MORE ARE T 
O BE ENTERED THEN ENTER <X 
> 

40 N=0:E1=0 

50 GOSUB 1000 'TO ENTE 
R DATA 



60 IF E1=0 THEN 50 

70 IF HC$="H" THEN LPRINT: 

LPRINT 

300 GOSUB 5000 'SORT ON 
UPPER CASE ARRAY D$(l) WI 
TH UPPER AND LOWER CASE ST 
RING A$(l) TIED TO ITS COR 
RESPONDING UPPER CASE STRI 
NG 

400 REM *** PRINT OUT S 
ORTED ARRAY 
410 FOR I = 1 TO N 
420 PRINT A$(l) 

430 IF HC$="H" THEN L 

PRINT A$(l) 

440 NEXT I 

450 END 

451 ' 

452 ' 

1000 REM READING IN DATA S 
UBROUTINE 

1010 INPUT A$ : IF A$ = "X" 
THEN El = 1: RETURN 
1020 N = N + 1 
1030 A$(N) = A$ 

1035 IF HC$="H" THEN LPRIN 
T A$ 

1036 ' 

1037 ' 

1040 REM ***************** 
********************* 

1050 REM THIS SECTION 

IS THE GUTS OF THE PROGRA 

M 

1051 ' 

1060 D$(N)="" 

1070 FOR P = 1 TO LEN(A$(N 

)) 

1080 B$=MID$(A$(N),P, 

1) 'EXAMINE EACH CHARAC 
TER OF THE STRING 
1090 IF ASC(B$)>95 AN 

D ASC(B$)<128 THEN B$=CHR$ 
(ASC(B$)-32) 'IF LOWER C 
ASE THEN CHANGE TO UPPER C 
ASE 

1095 IF ASC(B$) >31 AND ASC 
(B$) <47 THEN 1105 'IGNO 
RE MANY PUNCTUATION MARKS 
INCLUDING PERIOD, COMMA, A 
POSTROPHE, AND SPACE 
1100 D$(N) = D$(N) + 

B$ 'ADD LATEST CHARACTE 
R EXAMINED TO STRING D$(N) 
1105 NEXT P 

1110 REM D$(N) IS THE 
SAME AS A$(N) EXCEPT THAT 
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ALL LOWER CASE CHARACTERS 
HAVE BEEN CHANGED TO UPPER 
CASE AND SOIE PUNCTUATION 
ETC. ELIMINATED. 

1120 RETURN 
1125 ' 

1130 REM ***************** 
************ 

1140 ' 

1150 ' 

5000 REM QUICKSORT SUBROUT 
INE 

5002 REM REQUIRES STACK WI 
TH DIM STK( ABOUT 2/3 N) 
5010 P = 0:R = P+P:STK(R+1 



)=1:STK(R+2)=N:P = P+1 
5020 IF P = 0 THEN RETURN 
5030 P = P-1:R = P+P: A=STK 
( R+l ) : B=STK( R+2 ) 

5035 REM T IS USED BECAUSE 
TOP CONTAINS THE RESERVED 
WORD "TO" 

5040 Z$=D$ (A) : Z1$=A$ (A) : T= 
A:BOT=B+l 

5050 BOT=BOT-l : IF BOT = T 
THEN 5090 

5055 PRINT BOT,A,B,P, 1 R 

5060 IF Z$<=D$ (BOT) THEN 5 
050 

5061 D$(T)=D$(BOT):A$(T)=A 



$ (BOT) 

5070 T = T+lsIF BOT=T THEN 
5090 

5080 IF Z$>=D$(T) THEN 507 

0 

5081 D$(BOT)=D$(T) :A$(BOT) 
=A$ (T) :GOTO 5050 

5090 D$(T) = Z$:A$(T)=Z1$: 
: IF B-T>=2 THEN R = P + P: 
STK( R+l ) = T+l :STK(R+2) = 
B:P = P+1 

5100 IF BOT-A>=2 THEN R=P+ 
P: STK( R+l ) =A:STK( R+2 ) -BOT- 
1 :P=P+1 

5110 GOTO 5020 



Listing 6 Model II Sort 

5 ’ August 1983 Puzzler 

10 'Sorting mixed upper and lowercase in 

to proper order 

20 'This version is for Model II ONLY 

30 ' by Dan Myers 

40 ' 10677 Montecello 

50 ' Newburgh, Indiana 47630 

60 CLEAR1000 : DEFINT A-Z 

70 ' 

80 '**** Set up string arrays to hold na 
mes 

90 1 A$ ( ) holds original list, Al$( ) ho 
Ids original list in sorted order, AC$( 

) holds the list in sorted sorder after 
converted into caps, BF$( ) is a buffer 
array used for cap conversions and 



100 'sorts. Since I used SWAP and LSET t 
o avoid garbage collection, it is necess 
ary to initialize the Al$, AC$, and BF$ 
arrays as blank strings with a length at 
least equal to the longest name in the 
list. 

110 N=20' The number of names in the lis 
t 

120 DIM A$(N),A1$(N),AC$(N),BF$(N),EL(N) 
130 SP$=STRING$ (15,32): P0RI=1T0N: READA$ ( 
I ) : A1 $ ( I ) =S P$ : LSETA1 $ ( I ) =A$ ( I ) : AC$ ( I ) =S P 
$ : ISETACS ( I ) =A$ ( I ) : BF$ ( I ) =SP$ : NEXT 
140 ' 

150 ' 

160 ***** Sort the original list 

170 P0RX=1T0N:LSETBF$ (X)=A1$ (X) :NEXT:GOS 



ALWAYS AT TQQ Off ALWAYS AT 
SALE PRICES I nO-OU SALE PRICES 




MODEL 4 



OUR TRS-80s Have the Radio Shack warranty 




COMPTER 



WE SHIP 



FAST! 



m u coMPi Ti-K ci;\ti;r 

326 MAIN ST., GRAPEVINE 
TEXAS 76051 — (817) 481-7283 



MODEL 100 



RADIO SHACK 
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UB670 : F0RX=1T0N : LSETA1 $ (X)=BF$ (X) :NEXT 
180 P0RX=1T0N : EL (X ) =X : NEXT 1 winter arra 
y to sort the original list in the prope 
r order 

190 1 **** Convert the AC$ array to all c 
aps and sort, also sorting the EL pointe 
r array 

200 F0RX=1T0N:LSETBF$ (X)=AC$ (X) :NEXT:GOS 
UB380 : GOSUB670 : P0RX=1T0N : LSETAC? (X) =BF$ ( 

x) :next 

210 CLS : PRINTCHR$ ( 2 ) ; :GOSUB780 1 Print h 
eading 
220 ' 

230 ' "\" is CTRL9 key, 14 spaces then 4 
spaces for format of U$ 

240 ' 

250 U$="\ \ \ 

\ \ \ \ 

V 

260 F0RXN1T0N : PRINTUS I NGU$ ; A$ ( X ) , Al$ (X) , 
AC$ (X) , A$ (EL(X) ) :NEXT 

270 PRINT"Hit <enter> to continue "CHR$( 
1 ) ; : LINEINP(JTZ$ : GOTO450 
280 ' 

290 ' 

300 ' 

310 '**** The key to sorting the list in 
proper order: This subroutine looks at 
each character. If its ASCII code is >96 
(indicating a lowecase letter), it is c 
onverted to uppercase by re-setting the 
5th bit. 

320 'Since the ASCII code of an uppercas 
e letter is simply the ASCII code of the 
lowercase letter with the 5th bit re-se 
t, the character is converted to upperca 
se. Once all the characters are in upper 
case, the list can be sorted in the prop 
er order. 

330 'By making sure only those character 
s with an ASCII code greater than 96 are 
converted, only lowercase letters are a 
ffected. Punctuation and numeric charcte 
rs are not altered. The input routine sh 
ould screen out the 

340 'entry of characters with an ASCII c 
ode greater than 122 (the letter "z"). 

350 ’ 

360 'Conversion to uppercase can be done 
at the time of data entry or at the tim 
e of sorting. The sorted list can either 
be printed out in an all cap format, or 
by using a pointer array, in the origin 
ally-entered format, in a properly sorte 
d order. 

370 ' 

380 CLS:PRINT"I'm changing the strings t 
82 Basic Computing 



o caps using BASIC": PRINT :FORX=LTON: PORI 
=1T0LEN(A$(X) ) :A1=ASC(MID$(BF$(X) ,1,1) ) : 
IFA1 > 96THENMID$ ( BF$ ( X ) , I , 1 ) =CHR$ (A1AND22 
3) 

390 NEXT:PRINTX; :NEXT:PRINT:PRINT:PRINTT 
AB(10)"See how slow I was?"; :GOSUB770:RE 
TURN 
400 ' 

410 ' 

420 ' 

430 'The conversion to caps can be done 
more efficiently by a short machine code 
program. 

440 ' 

450 DIMU1(13) :PORX=0TO13:READUl(X) :NEXT 
'Read machine language array 
460 P0RI=1T0N : LSETA1 $ ( I ) =A$ ( I ) : LSETAC$ ( I 
) = A$ ( I) : NEXT 'rebuild original name arra 
ys 

470 ' 

480 J=0 
490 CLS 
500 ' 

510 ' 

520 ***** Sort the original list 

530 P0RX=1T0N : LSETBF$ (X)=A1$ (X) :NEXT:GOS 

UB6 7 0 : F0RX=1 TON : LSETA1 $ ( X ) =BF$ ( X ) :NEXT 

540 F0RX=1TQN:EL(X)=X:NEXT 'Pointer arra 

y to sort original list 

550 '**** Convert the AC$ array to all c 

aps and sort it and EL array 

560 P0RX=1T0N : LSETBF? (X ) =AC$ (X ) : NEXT : GOS 

UB620:GOSUB670 : F0RX=1T0N:LSETAC$ (X)=BF$ ( 

X) :NEXT 

570 CLS : PRINTCHR$ ( 2 ) ; : GOSUB780 ' Print hea 
ding 

580 F0RX=1T0N:PRINTUSINGU$;A$ (X) ,A1$(X) , 
AC$ (X) , A$ (EL(X) ) :NEXT 

590 PRINT"Hit <enter> to end "CHR$(1);:L 
INEINPUTZ? : END 
600 ' 

610 ' 

620 CLS: PRINT® (6, 10), "I'm changing the s 
trings to caps with machine language": PR 
INT : F0RY-1T0N : DEFUSR=VARPTR( U 1 ( 0 ) ) : J=USR 
(VARPTR(BF$ (Y) ) ) :PRINTY; : NEXT: PRINT :PRIN 
T:PRINTTAB(10) "See how fast I was?"; :GOS 
UB 770: RETURN 
640 ' 

650 ' 

660 ***** Shell-Metzner sort 
670 P=41 

680 P=INT( P/2 ) : IFP=0THEN RETURN 
690 K=N-P: J=1 
700 I=J 

710 L=I+P:IFBF§(I)<BF$(L)THEN 730 

720 SWAPBF? (I) ,BF$(L) : SWAPEL( I ) , EL( L) : 1= 
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I-P: IFI>=1THEN710 

730 J=J+1 : IFJ <=KTHEN700ELSE680 

740 ' 

750 ' 

760 ' 

770 PRINT: PRINT :PRINTTAB( 10) "Hit <enter> 
to print the sorted lists sLINEINPUTZ 
?: RETURN 

780 PRINT" Original list 

List changed to Original list 
keyed to" 

790 PRINT"Original list Sorted 

Caps & sorted Capitalized arr 

ay" 



800 PRINTSTRING? ( 79, ) : RETURN 

810 DATA Gwaltney, FAHRENKAMP, Rundio, s 
cott, RelhErZeR, gwozoa, GREULICH, Greub 
el, SCHWEIKARTH, SIEBEKING, Falamarzian, 
FECHTMEISTER, RIPPLEMEIER, rudkevich, R 
UIZ, Schmalgemeyer, TRAUTVETTER, Tzschop 
pe, MYERS, Meyers 
820 ' 

830 ' 

840 '**** Machine code integer array ele 
ments 

850 DATA 24013,17988,24099,22051,1259,-1 
4331 , -386 , 14433,-505 ,12411, -6653 , 30559 , 4 
131,-13839 



Listing 7 Time Difference 

5 CLS : CLEAR5000 : GOTO50 
10 T3=VAL(LEFT?(T3?,2))*36 
00+VAL(MID?(T3?,4,2) )*60+V 
AL( RIGHT? (T3?,2) ) : RETURN 
30 T3$=Tl$:GOSUB10:Tl=<r3:T 
3?=T2$ :GOSUB10:T2=T3 :T2=T2 
- (T2 <T1 ) *86400 :T3=T2-T1 : T1 
=INT ( T3/ 3600 ) :T3=T34Tl*-36 



00 :T2=INT(T3/ 60 ) 

35 T3=<r3+T2*-60:T3$=" " :T3? 
=T3?+CHR? (lNT(Tl/10)+48)+C 
HR? (T1-INT(T1/10) *10+48)+" 
: "+CHR? (INT(T2/10)+48)4CHR 
? (T2-INT(T2/10) *10+48) 

38 T3?=T3?+" : "+CHR? ( INT(T3 
/10 ) +48 ) +CHR? (T3-INT ( T3/ 10 
)*10+48) : RETURN 
50 Tl?="01 : 01 : 01" :T2?="01 : 



02 : 11" : PRINT" STARTING TIME 
= ";T1?: PRINT" ENDING TI 
ME = ";T2?:G0SUB 30: PRINT" 
ELAPSED TIME = ";T3? 

55 PRINT 

60 Tl?="23 :11 :59" :T2?="04: 
59:18" :PRINT"STARTING TIME 
= ";T1?: PRINT" ENDING TI 
ME = ";T2?:GOSUB30: PRINT" 
ELAPSED TIME = ";T3? 



NEW LOWER PRICES 

RIBBON CARTRIDGES 



PRINTER 

MAKE, MODEL NUMBER 



NEW REPLACEMENT 

CARTRIDGES 



Contact us If your printer , Price each In 
is not listed. We have ribbons quantity of 



FOR MOST PRINTERS 


! 3 


6 


12 


ANADEX 9500 


12.00 


11.50 


11.00 


CENTRONICS 704 (7-MEG) 


7.50 


7.25 


6.75 


C.ITOH Prowrlter 


8.75 


8.50 


8.00 


C.ITOH Starwriter 


5.50 


5.25 


4.75 


COMMODORE PET 8023P 


9.00 


8.75 


8.00 


EPSON MX70/MX80 


5.50 


5.25 


5.00 


EPSON MX100 


11.00 


10.50 


10.00 


IDS Paper Tiger 460/560 


7.75 


7.50 


7.00 


NEC 5500/7700 Nylon 


6.00 


5.75 


5.25 


Multistrike 


5.50 


5.25 


4.75 


Multistrike High Yield 


6.00 


5.75 


5.25 


OKIDATA Microline 84 


6.00 


5.75 


5.25 


80, 82, 83, 92, 93 


3.00 


2.75 


2.25 


QUME Nylon 


5.25 


5.00 


4.50 


QUME Multistrike 


5.00 


4.75 


4.25 


RADIO SHACK DW II 
Carbon Film • Black 


6.25 


6.00 


5.50 


RADIO SHACK LP l-ll-IV 


3.50 


3.25 


3.00 


RADIO SHACK LP 1 II- V 


6.25 


6.00 


5.50 


RADIO SHACK LPVI-VIII 


6.50 


6.25 


5.75 



CHECK - MO - COD - 

All orders shipped U.S. mail. FREE 
shipping on prepaid orders for USA zip codes. 
VISA/MC add $1.50 (include exp. date). 
COD add $3.00. Foreign must be US funds 
add $3.00 surface, $6.00 air. Ph 6 pm - 9 pm 
EST Mon * Fri & 9 am - 5 pm Sat. 

ADEL COMPUTER MART (302) 492-8463 

Dept. 40 Box 195 • Hartly, DE 19953 



Now. . . . 

FOR THE TRS-80 * MODEL I & III 



JOSHUA’S 



/ '/ 1 / / i L y i \ c 

h \i li 7 i - 

/./L'/Jl/IILji. 




Enter into the challenging maze battle lor domination ol game quadrants to 
complete a winning row ol conquests Beware, your opponent may retake 
unconquered areas Based on the age old game ot Tic Tac Toe with some 
complex and mmd boggling differences All maenme code fo f high speed 
action and enioyment Play a friend or match wits against the computer 
Joystick compatible Optional sound with audio amplifier 




DISK s 19.95 

32K 

TAPE s 15.95 

16-K LEVEL II 



CORPORATION 

P O. BOX 1284, WILLOW GROVE. PA 19090 
Send S19 95 for eacti disk and SIS 95 lor each tape cassette 
PA residents add 6 V. sales (ax include S3 00 per iiem lot ship 
ping and handling For Iasi delivery send card number with 
e«p date or money orders Checks require one to two weeks 
lor processing 

Specify Model I or III. tape or disk Prices subiect to change 
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Z I RCON ! ! 



4 < BIGGEST TRS80 SPACE GAME 

♦ STRATEGY/ ADVENTURE COMB. 

* MATCH WITS WITH AN ALIEN 

* NEW GALAXY EACH GAME 
No 2 games ever alike 

♦ FULL RANGE OF COMMANDS: 

Phaser* Capture Scan 
Totps Report Build 

Thrusters Dock Score 

4* FIVE LEVELS OF PLAY 
Easy to deadly 
4c GALAXY CHART PRINT OPT. 

4 * 5 GAME LENGTHS* 13min-2hr 



FOR TRS-80 MODELS 1,3.4 
REQUIRES 4SK & 1 DISK DRIVE 
Get ZIRCON now for only *35 
(Includes captains manual) 
CHECK, COD, VISA, M. C. 



PAECO IND. (Est 1964) 

213 SO 21ST ST. 

BHAM, AL 35233 205-323-8376 
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Computer ease 

What is "permanent" storage? 



For all readers 



Mark E. Renne, Bozeman, MT 



We’ve been talking about 
input/output devices and the 
computer. Last month, we took a 
look at keyboards and screens. This 
month’s column is all about 
“permanent” storage devices. We’ll 
cover tapes, stringy floppies, 
diskettes and hard disks. I’ll try to 
explain the differences and 
advantages of each. Since most of 
the confusion occurs with disk sys- 
tems, I’ll try to explain the differen- 
ces and advantages of each. 

What do I need storage for 
anyway ? Computers would be fairly 
ineffective without a way to store 
information and programs on a 
permanent basis. Although infor- 
mation on the screen is helpful, we 



wouldn’t want to type in our general 
ledger program each time we used it. 
Early computers stored informa- 
tion, both programs and data, on 
punched cards. These cards were 
very reliable, but were impossible to 
change. I’ve written programs with 
cards and it’s not much fun. 

What's the least expensive way to 
go? The lowest cost storage medium 
on microcomputers is the cassette 
tape recorder. Early tape systems 
were slow and unreliable, but 
today’s systems are faster and much 
more reliable. For example, the 
Model III tape system is three times 
faster than a Model I tape system. 
The real advantage to a tape system 
is cost. A standard cassette recorder 



that you already own can be used for 
storage of programs and data. 

Let me throw in a pitch or two for 
Radio Shack’s methods. Some 
computer companies require a 
special recorder, usually about $150, 
to work with their computer. Radio 
Shack’s computers are built to use 
any standard recorder to save you 
the cost of buying a special recorder. 
Thanks, Radio Shack. Also, outside 
vendors sell quite a few inexpensive 
tape programs for Radio Shack 
computers. On the other hand, there 
are almost no programs for Apple 
Computer tape systems. 

What's the catch to tape storage? 
The big problem with tape is speed. 
A program such as Scripsit might 



1 rUHPTTTF R L A N D 




(%) RPWP 




84 Basic Computing 



Refer to advertiser index for reader service number 



Computer ease 



take a minute to load on tape. You 
could load the same program in a 
few seconds from disk. The same 
problem occurs with data tapes. To 
write a hundred payroll records to 
tape would take hours! Also, you 
have no “random access.” If you 
want to change one data record on 
tape, you must read in the whole 
tape, change the record, and write 
out the whole tape again. With 
random access, you can pull in one 



If you're just starting in 
computers, you want a 
medium for storage that's 
reliable but cheap. Tape is 
just what the doctor 
ordered. 



random access, you can pull in one 
specific record, change it, and output 
it to the same spot. Much faster, 
folks. 

What good is tape then ? Whoa! 
Don’t misunderstand my explana- 
tion for criticism. If you’re just 
starting in computers, you want a 
medium for storage that’s reliable 
but cheap. Tape is just what the 
doctor ordered. The secret to build- 
ing a computer system is 
expandability. You can start with a 
Color Computer tape system and 
build up to disk drives. If you’re only 
writing short programs or 
balancing your checkbook, you 
don’t need high speed. I often wish I 
could go back to using 88-cent tapes 
again instead of five-dollar 
diskettes. 

Aren't Stringy Floppies tape too? 
Yes, they are. The difference is that 
the stringy moves at a very high 
speed and is continuous. It’s not as 
fast as a disk drive, but it’s faster 
than regular tape systems. Also, you 
can store many programs on a tape 
without running them in order. Let’s 
say you have five games on a tape. 
You play the third one and now want 
to play the first one. On standard 
tape, you’d have to rewind and 
search from the beginning. The 
stringy allows you to simply request 
the first one and it wraps around 
and loads the first one. 

The stringy floppy is also cheaper 



than adding a disk drive to your 
computer system. It still doesn’t 
allow random access, but it’s quite a 
bit handier than a standard tape 
system. The problem with the 
stringy is lack of software support. 
Although the manufacturer does 
provide software, and there’s a 
strong user’s group, outside 
software vendors have not picked up 
on the idea. Standard BASIC 
programs are easy to put on the 
floppy, but machine language 
programs can be a problem. 

Most computers use disk drives. 
Why? Disk drives provide a quality 
medium with an acceptable speed 
for most applications. They are 
inexpensive compared to a hard disk 
and provide users with unlimited 
storage by maintaining a library of 
diskettes. Two disk drives provide 
enough storage for most personal 
and business applications, however, 
most computers allow up to four 
drives to be attached. 

What's the difference between a 
floppy , a diskette , and a drive? This 
is a constant point of confusion to 
first-time computer buyers. The disk 
drive is the part that is attached to 
the computer. The diskette or floppy 
is the part that you put into the 
drive. Some people use the terms 
disk, floppy, and diskette 
interchangeably. In our discussion, 
we’ll use drive and diskette as 
defined above. 

Explain single- versus double- 
density. Okay, now we’ve begun the 
journey into the deep depths of 
confusion. When you ask a 
salesman about computer systems, 
he’ll usually spit out something like, 
“This unit has double-density, 
single-sided drives for storage.” 
Let’s attack this term-by-term. 
Density refers to how close together 
the information is packed on a 
diskette. Hence, double-density is 
packed twice as closely as single- 
density. 

Isn't double-density less reliable? 
No. Some people still believe that 
computer wive’s tale. Double- 
density technology has become the 
standard of the industry. Some very 
early systems had a bug or two and I 
think that’s where the rumors 
began. Some computers are even 
beginning to introduce quad density 
(the information is packed twice as 
close as double-density). It will be 




MORE MAXI’S 

MANAGER W/Utility (B.O). .$119.95 
MAXI UTILITY $44.95 

MAXI CRAS Mod l/lll $84.95 

MAXI MAIL Mod III $84.95 

MAXI ST AT Mod l/l lr $164.95 

LAZYWRITER Mdl l/lll $149.95 

NEWSCRIPT 7.0 w/labels . . $119.95 
LDOS Ver. 5.1 Mod I or III . . $109.95 

DOSPLUS 3.5S/3.5D/3.5III. . $119.95 

MULTIDOS 1.6 SD/DD/lll $89.95 

G EAP w/DotWriter 1.5 $84.95 

SUPERUTILITY + Ver. 3.0. $59.95 
DATA-WRITER Mdl l/lll $124.95 



LNW SPECIALS 

LNW 80 Mdl II $1,795.00 

Expansion II 349.95 

5/8 Doubler w/Dosoius3.4D . . 199.95 



RIBBONS 

ZIP BOX RELOADS % Dz. Dz. 



Epson MX 70/80-20 Yds 24.00 42.00 

Epson MX 100-30 Yds 30.00 52.00 

NEC/Prowriter 21.00 36.00 

Centronics 730/737/739/779 or 

LP-I/I I/I V-16Yds 18.00 32.00 



All ZIP BOXES are individually sealed black nylon and 
require no rewinding. Epson Reloads also available in 
red, blue, brown, green & purple. Any mix allowed. 



CARTRIDGES Each Dozen 

Epson MX70/80 7.00 70.00 

Epson MX100 12.00 125.00 

Prowriter 8510 & NEC 8023A . 7.50 80.00 

RSLPIII/V 6.50 70.00 

RS LP VI/ VI 1 1 6.50 65.00 

RS DSY WH II or DWP 410 . . . 6.50 70.00 

RS DSY WH 1 1 - Nylon 6.50 70.00 

MICRLNE 80/82A/83A/92 . . . . N/A 30.00 

MICRLNE84 V 2 x40yds 5.50 60.00 

Diablo Hytype II - Multi strike. . . 6.50 65.00 

Qume - Multi Strike 5.00 50.00 

NEC Spin - Hi Yld - Mum strike . 7.00 70.00 

Centronic 703/04/53 11.00 120.00 



Minimum order 3 cartridges any mix. For smaller 
quantities add $1.50 per order. All our reloads and 
cartridges are manufactured by one of the oldest and 
most reputable ribbon Mfg's. in the country 

♦ » ★ * » * QUALITY GUARANTEED* * * * ♦ ♦ 

SEE OUR EXPANDED ADS IN 

80 MICROCOMPUTING 

SEND FOR YOUR FREE CATALOG. 



ORDERING INFORMATION 

No credit cards at these low prices. Add $2.00 on all 
COD orders. Certified Ck/MO/COD shipped immedi- 
ately. Please allow 2 weeks for personal checks. For 
extra fast service phone in your COD order. Free ship- 
ping within Continental 48 states via UPS ground. For 
Canada, Hawaii, Alaska, applicable shipping and in- 
surance charqes apply. Prices subject to change with- 
out notice. New York State residents please add 
appropriate sales tax. 

The items listed above are a cross-section of our 
product line. We carry the full line of most companies 
listed in the ad, plus much more. SEND FOR YOUR 
FREE CATALOG. 



1W-U3 zain Hoad, Dept . B 
Flushing, New York 11354 

Mon.-Thurs. (21 2) 445"7 1 24 Fri & Sat 

10A.M.-9P.M. ' ' 10A.M.-5P.M. 
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CATALOG 

* ANY DISK * 
REGARDLESS 

OF DOS, DENSITY 
OR TRACK COUNT 
IN SECONDS . . . OR 
YOUR MONEY BACK! 



The Arranger is a very fast 
1 00% Z-80 machine language, 
self contained master disk 
catalog filing program that 
automatically records disk 
name, date, density, DOS, free 
space, track count and data 
type in seconds on almost 
anything! 



With the Arranger you can: 

* Catalog 250 disks— 44 files 
(double density) 

* Find any program in 30 
seconds 

* Sort 1500 files in 40 seconds 

* Sort by extension or wildcard 

* Single or multiple drives 

* Scan files starting at any point 

* Search by wildcard 

* List or print files alphabetically 

* Add or update your disks in 
seconds 

* Rename disk at any time 

The Arranger is totally inde- 
pendent, complete with its own 
backup function. We believe 
the Arranger to be the finest, 
fastest, easiest to use disk 
catalog filing program available 
and the least expensive. 
Single Density Model I or 
Double Density Model l/lll 



0 



$29.95 
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of Serious Software 
for your 80 
Daily Saturday 

10-5 VISA-MC 10-2 
TOLL FREE 1-800-692-5235 
IN CA 1-213-873-6621 

C D C 

13715 VANOWEN STREET 
VAN NUYS, CA 91405 



Computer ease 

interesting to see if it ever catches 

on. 

What's this “sided” stuff all 
about? Most disk drives write to only 
one side of the diskette. Double-sided 
drives will write to both sides of a 
diskette. These are also called 
double-headed drives. We now have 
four different types of drives: single- 
sided single-density, single-sided 
double-density (the current industry 
standard), double-sided single- 
density, and double-sided double- 
density. 

Are there only four types of 
diskettes? In order to make our 
discussion somewhat easier, I’ve left 
out a number of other factors that 
enter into diskette types. For 
example, drives can be 5V4-inch, 8- 
inch, or 3y 2 -inch. This simply refers 
to the physical size of the drive. It’s 
easy to see that an 8-inch diskette 
won’t fit into a 5y 4 -inch drive! 

There’s also sectoring. Most 
drives use soft-sectored diskettes. 
This means that the computer 
actually lays down a software map, 
called FORMATing, to locate 
information on a diskette. Hard- 
sector diskettes use physical 
references to locate information. If 
you rotate a diskette around in its 
sleeve (plastic wrapper), you’ll 
notice a hole in the diskette. If 
there’s only one hole in the diskette, 
it’s a soft sector. More than one hole, 
it’s hard-sectored. Never, never put a 
hard-sectored diskette in a Radio 
Shack drive! It drives the whole 
system nuts and could damage your 
computer. 

Can I use single-density diskettes 
in a double-density drive? If you 
mean, “Can I buy the single-density 
blank diskettes which are cheaper 
than double-density blanks?”, yes 
and no. The drive has no way of 
knowing what type of diskette 
you’re using. Since there is no 
physical formatting done on a 
diskette, the drive will attempt to 
format it in double-density. The 
problem is that the manufacturer of 
the diskette only tests the diskette 
for single-density qualities. Often, 
diskettes that fail double-density 
tests are then tested for single- 
density. 

If you mean, “Can I read single- 
density diskettes in my double- 
density drives?”, yes and no. The 
Radio Shack program CONVERT, 



which allows you to convert Model I 
diskettes to Model III format, does 
just that. The drive doesn’t really 
give a darn about the whole thing. 
It’s the operating system that 
decides what will, or won’t, be read. 
TRSDOS allows the Model III to 
read only double-density except 
during the CONVERT routine. 
Other operating systems do allow 
multiple-density reads. Next month, 
we’ll have an in-depth discussion of 
different operating systems for 
Radio Shack computers. 

What's a hard disk? A hard disk 
(in the microcomputer sense) is a 
mass storage device without any 
interchangeable media. One hard 
disk can hold as much as 30 floppy 
diskettes. It’s also much faster than 
a standard floppy. For business 
applications, a hard disk can easily 
pay for itself in speed alone. They 
also cost about the same as 10 floppy 
drives. 

I usually don’t even mention hard 
drives, but they’ve come down 
drastically in price in recent years. 
Five years ago, they cost about 
$15,000. Today, they can be found 
for under $2000. I wish groceries 
were related to computers. 

What's wrong with hard drives? 
Lack of software is a real problem. 
Not all programs written for 
standard floppies will work with a 
hard disk. Also, most are sold 
without a legitimate backup system. 
You must make backups of your files 
onto diskettes which takes quite a 
bit of time. Some systems offer a 
special formatting which allows an 
entire hard disk to be backed up onto 
only a few diskettes, but a high- 
speed tape would be much better. 

Also, when things go wrong with a 
floppy drive, the price of repair is 
under one hundred dollars and you 
usually ruin only one diskette. 
Problems with hard disk failure can 
cost hundreds of dollars and 
eliminate 30 diskettes worth of data. 

Send any questions you have 
about computers to me in care of 
Basic Computing. If you’d like an 
answer, please enclose a stamped, 
self-addressed envelope with your 
question. Next month, we’ll take a 
look at a number of operating 
systems for Radio Shack computers 
and I’ll also tell you how to obtain a 
free Christmas present. Until then, 
happy computing! 
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Its about ENB. 



Southern Software's new relational database 
manager for TRS-80 Model I/III, all DOS. 



ENB is a treat to use, with an integrated data dictio- 
nary to allow totally flexible datastructure (restructure 
without reblocking the database) and data-interde- 
pendencies of any complexity. Variable length fields, 
no record-length constraints, select on any field. 
High-level Basic interface (compatible with ACCEL3/4 
Basic Compiler), plus file exchange with practically 
everything (Scripsit, VisiCalc, more). Holds up to 
64K data items without data redundancy, spans up to 
4 disk drives (or hard disk). 



Read the reviews . . . 

"ENB is fascinating." 

— Wynne Keller , 80-MICRO, July 1983 

"ENB has no peer at the present time." 

— Jim Klaproth , 80-US, July 1983, 



Special Offer 

Buy ENB before December 31, 1983 and receive 
EDIT full-screen Basic editor ($40 value — you 
must enclose a copy of this ad!). 



You've seen this ad about ENB. 

Now ENBase your data! 

ENB. $ 140 cfa» 




Scripsit “ Radio Shack, VisiCalc VisiCorp, 



AUenGeUer Software 

i 




. 


Box 11721 San Francisco, CA 94101 (415) 681-9371 


o 
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Quick find 

Making a faster search routine 



For all readers 



There have been several good articles written lately 
about sorting arrays within a program in a minimum 
amount of time. The pros and cons of the bubble, ripple 
and the Shell-Metzner sorts and others have been 
explored and explained several times over. What seems 
to have been neglected were any words of wisdom about 
how to find data in your sorted arrays quickly once you 
have all of your data in order. Hopefully, this short 
article and the program I have written will help 
overcome this inadequacy. 

I recently had an occasion to show off the prowess of 
the TRS-80 at a cross-country race at Tinker AFB, 
Oklahoma. After several false starts, we finally got our 
racers’ times and numbers all matched up and started 
entering them into the computer. There were over 300 
entrants in the race. I had written a simple search 
routine to get the racer’s number and time. It became 
apparent very early in the game that those entrants 
with the highest numbers were causing considerable 
slowdown in the data input stage of the program. 
Because I didn’t want to do a complete rewrite of the 
program at that point in time, we lived with the 
sequential search for the rest of the morning. This 
slowdown, caused by a poor search routine in the 
program, has caused all concerned some headaches. 

After the race was over, I collected my thoughts and 
decided that, if I were invited to return next year, I would 
have to work on two or three areas in the program. I 
attacked the slow search routine first and came up with 
the general program shown in Listing 1 to deal with 
this problem. 

This routine will take an ordered array and find a 
given value in a short time. Using the TIME$ function of 
DOS BASIC as a check, I have consistantly been able to 
find any number in a 1000-item integer array within two 
seconds, usually less. Without resorting to some 
machine language subroutine, I think this will fill most 
needs. 

Program Analysis 

Line 10 is used to set up all variables as integers and to 
establish a 1000-item array. By changing the value of 
“S” you can change the array size and all related values. 

Line 20 will place an ordered set of positive integers 
from zero to 1000 into the array. As I stated earlier, this 
search routine depends on the array being in ascending 
order. 

Line 30 asks for your input. You can put in any 
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number that you wish to search for. Numbers outside the 
range of zero to 1000 will give you a “NUMBER NOT 
FOUND” message. Non-integer values will be 
converted internally to integer before the search begins. 

Line 40 is very important to the proper operation of the 
rest of the program because we are setting up the initial 
parameters for the search. Variables PII, PM and PL 
will be changed as the program runs, but PB and PT will 
remain constant as checks against going outside of the 
search range. 

Variables PL and PB should both be set to the lowest 
array item that you wish to search through. PT should 
be set to equal the highest element in the array that you 
wish to examine and PH should be set equal to PT+1. 
Variable PM is the pointer which will move through the 
array and search for your elusive item. Initially PM is 
set to the mid-point between PL and PH. 

The print statement at the end of line 40 is window 
dressing so that you can observe the changing values of 
the various pointers as the program runs. This is also 
the purpose of the print statement at the start of line 50. 

In line 50, you perform a check to see if the array item 
you are searching for is also the one currently examined. 
If it is, you are told so and processing goes back to the 
input statement. You may exit the routine here without 
worry because this is not a FOR . . . NEXT loop. Instead, 
it is a simple reiterative loop. 

Line 60 checks the pointer to make sure that it does not 
exceed the bounds of the array being searched. If you are 
at either end of the array and haven’t found the desired 
number, then it obviously is not in the array! If this is the 
case, the user is notified that the value can’t be found 
and the current values for PL, PM and PH are displayed. 
You must then go to the input statement for another 
number. 

Line 70 checks to see if the array item is greater than 
the search value. If this case is true, the upper limit 
searched for is brought down to the current location of 
the pointer and a new mid-point is determined. 
Processing then checks to see if the new value pointed at 
is the one we are searching to find. 

Line 80 is similar to line 70 except that it checks to see 
if the array item is less than the searched-for value. If 
this is true, the lower limit is brought up to the location of 
the pointer and a new mid-point is found. As in line 70, 
processing goes back to line 50. 

Line 90 is an error trap. You will never get to this line 
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VIDEO INSTRUCTION TAPES! 

fvcal 



THE OLD HARD WAY 




STEP BY STEP INSTRUCTIONS 

PICTURES ARE WORTH 
THOUSANDS OF WORDS AND SAVE 
HOURS OF FRUSTRATION 



THE NEW EASY WA Y 

TAPES NOW AVAILABLE 



Use your VCR side by side with your computer 
to learn disk operating systems, how to program, 
and how to use programs. Your VCR along with your 
computer serve as your personal tutor. Pause your 
VCR to review and learn at your own pace. 

VHS or BETA FORMAT 

SPECIAL SALE WHILE SUPPLY LAST 

Verbatim Datalife Diskettes 
5 Year Warranty 5V4 In 
Double Density Diskettes In 
Plastic Storage Box 



CAT # 


TOPIC 


APPROX RUNTIME 


DOS-1 


TRSDOS 1.3 MOD 3 


1 


HR 30 MIN 


DOS-6 


TRSDOS 6.0 MOD 4 


1 


HR 45 MIN 


DOS-3 


NEWDOS80 2.0 


1 


HR 45 MIN 


DOS-2 


DOSPLUS 3.5 


1 


HR 45 MIN 


DOS-5 


LDOS 


1 


HR 45 MIN 


DOS-4 


MULTIDOS 


1 


HR 45 MIN 


EW-1 


VISICALC 


1 


HR 30 MIN 


WP-1 


LAZY WRITER 


1 


HR 45 MIN 


WP-2 


SUPERSCRIPSIT 


1 


HR 45 MIN 


WP-3 


SCRIPSIT 


1 


HR 30 MIN 


DB-1 


PROFILE III PLUS 


1 


HR 45 MIN 


DIO-3 


TRSDOS 1.3 DISK I/O 


1 


HR 45 MIN 


DIO-4 


TRSDOS 6.0 DISK I/O 


1 


HR 45 MIN 



The DIO-3 and DIO-4 Video Tapes include disk 
basic commands with examples. Also teaches both 
random and sequential disk read and write. 



ONLY $25.00 



BOX OF TEN 



MASTERCARD — VISA and C.O.D. Orders accepted 
add $3.00 per orderfor shipping and handling.Telephone 
orders taken 9:00 a.m. - 6:00 p.m. Central Time. 
Specify either VHS or BETA Tape Format 

C.O.D. Orders add $3.00 

DEALER INQUIRIES WELCOME 



TAPE ABOVE ONLY 



$39.95 



EACH 



CAT# TOPIC APPROX RUNTIME 

BP-1 LEARNING MODEL 3 BASIC 3 HR 

BP-2 LEARNING MODEL I BASIC 3 HR 

BP-3 LEARNING C-64 BASIC 2 HR 

BP-4 LEARNING VIC-20 BASIC 2 HR 

DIO-1 COMMODORE 64 DISK I/O 1 HR 45 MIN 

DIO-2 VIC 20 DISK I/O 1 HR 45 MIN 



TO ORDER PHONE 
OR WRITE 



TAPES ABOVE ONLY 



$49.95 



EACH 



LYNN COMPUTER SERVICE 

6831 West 157th Street Tinley Park, Illinois 60477 
(312) 429-1915 

VISICALC IS A TRADEMARK OF PERSONEL SOFTWARE INC. LAZY WRITER IS A TRADEMARK OF ALPHA BIT COMMUNICATION SCRIPSIT, SUPERSCRIPSIT, PROFILE III PLUS AND TRSDOS 
ARE TRADEMARKS OF TANDY CORP. LDOS IS A TRADEMARK OF LOGICAL SYSTEMS INC. NEWDOS80 IS A TRADEMARKOF APPARAT INC. DOS PLUS IS ATRADEMARKOF MICRO-SYSTEMS 
SOFTWARE INC. MULTIDOS IS A TRADEMARK OF COSMOPOLITAN INC. VIC 20 AND COMMODORE 64 ARE TRADEMARKS OF COMMODORE BUSINESS MACHINES. INC. 
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unless something goes wrong. The line was included just 
in case you type as well (or as poorly) as I do. 

The program takes about 425 bytes of memory. Quite a 
bit of that is window dressing. When you actually 
program it without the spaces, comments and extras, it 
will only occupy about 285 bytes of memory. This does 
not include the amount required to set up your true 
arrays and the rest of your program— just the actual 
search portion. 

The program has two limitations — both have to do 
with the contents of the array. First, the array must be 
sorted in ascending order before the search begins. (I 
said that, didn’t I? Must be important or I wouldn’t 
repeat myself.) Second, there may not be duplicate items 
in the array. If there are two (or more) number 33s or two 
John Smiths in the array being searched, one of them 
will never be found. For finding things like contestant 
numbers, check numbers or any other items that are 
unique within an array, this routine does very well 
indeed. 

Three of the pointers, PB, PT and PH deserve a little 
extra explanation. Keep in mind that all of the pointers 
are integer types. Your actual program should set them 
up as such. Because of the rounding manner of the TRS- 
80, it turns out that when you try to look at the top 
element, 1000 in our example program, you end up with 
PH=1000 and PLf= 999. In this situation, when you try to 
get a new PM, the formula works to PL=(PH-PL)/2+PL 
or (1000-999)/2+99 or (1) /2+999. But (1) /2 is evaluated 



AITech LISP for the 
TRS-80T 
Models I and III 

The AITech LISP interpreter comes with a full range of 
LISP functions, including: function tracing, error trapping, 
propertylists, lambda and nlambda function definitions, 
strings and string functions. Special features include 
graphics and other visual display commands, commands 
to randomly access files, while and for loops, double and 
single precision floating point numbers, multidimensional 
arrays, trigonometric and exponential functions, automatic 
conversion from integers into floating point numbers, 
automatic closing of expressions with left and right 
brackets, fast pretty printing and abbreviated quoting. 
Perhaps most importantly, the AITech LISP interpreter is 
one of the fastest high-level language interpreters 
available for microcomputers on the market today. 

The AITech LISP system includes the LISP interpreter, 
an expression oriented LISP editor, and a manual. A sym- 
bolic differentiator and algebraic simplifier and a poker 
player are also included . The system diskette with manual 
sells for $79.95. 

To order send check or money order and please specify 
model (Washington state residents add sales tax). 



For more information or a free brochure call 206/644-3068 or write 
Artificial Intelligence Technologies, 2121 N.E. 152nd, Redmond, 



WA 98052. 

INTELLIGENCE 

IS OUR 

MIDDLE NAME. 



© 1983 

ARTIFICIAL 



INTELLIGENCE 



TECHNOLOGIES 



*TRS-80 is a trademark of Tandy Corp. 



as the item in an infinite loop. By setting PH to PT+1 
(1001), you are allowed to examine that last item and PT 
is used to make sure you don’t carry things too far. 

As long as you start examining the array from item 
zero, no special considerations need to be given to 
variables PB and PL other than to set them both equal to 
zero. If, for some reason, you only want to examine (for 
example) items 150 to 1000, PL should be set to the 
lowest item to be examined (150) and PB should be set to 
PB-1 (149 in this example). For the general case, you 
could change line 40 to read: 

40 PL=0: PT=S: PH=PT+1: PM=(PH-PL) /2+PL: 
PB-PL-1: IF PB<0 THEN PB=0 

Let us take a quick look at one search method to find 
duplicated items in an ordered list. In other words, let’s 
figure a way to handle the John Smith syndrome of 
arrays. 

In a list of names or ages, you could expect to find 
several duplicates. In an ordered array, items of equal 
value will be grouped together without breaks. The 
search routine we have been looking at will lead us to an 
equal element in the array, but it will stop searching at 
the first encountered equality. If there are three or four 
John Smiths listed, you won’t know whether you are 
looking at the first, second, third or fourth occurrence of 
that name! What can be done about this? What about 
starting a sequential search and doing it both ways? 
Before starting to play with your program, be sure that 
you save what you have on tape or disk. 

Let’s make some changes and explain them. First, 
change line 20 to read as follows: 

20 FOR X=0 TO S-4 STEP4: A(X)=Y: A(X+1)=Y: 
A(X+2)=Y: A(X+3)=Y:Y=Y+1: NEXTX: A(1000)=250 

This line fills the array with groups of four like 
numbers and gives a loner up in A(1000). Next, change 
the variable “S” in line 30 to S/4. That will notify you of 
the new legal limits in the array. The last change is in 
line 50. Change the “THEN” statement to “THEN 
GOSUB 100: GOTO 30.“ Finally, delete line 100 and add 
the following line of code: 

100 IF PM=0 THEN GOTO 130 

110 PM=PM-1: IF A(PM)= N THEN GOTO 100 

120 PM=PM+1: IF PM>PT THEN GOTO 160 

130 PRINT "MATCH FOUND AT ITEM ";PM;" ";A 

(PM);"=";N 

140 PM=PM+1: IF PM>PT THEN GOTO 160 

150 IF A(PM)=N THEN GOTO 130 

160 PRINT “NO MORE MATCHES FOUND” 

170 RETURN 

See Listing 2 for the final form of this program. 

Line 50 sends you to subroutine 100 when any match 
is found. Line 100 checks to see if you are at the bottom of 
the array and sends you to 130 to print the match. Lines 
140 and 150 move the pointer up the array until a non- 
match is found. In the event that the pointer is not at 
zero, line 110 starts moving the pointer down through 
the array to the first non-match. Line 120 moves it back 
up to the last match found. Then line 130 prints it and 
140 increments the pointer and checks to make sure we 
haven’t gone out of bounds on the high end of the array. 

You now have a search routine which will find the 
exact matches in an array. Let’s make sure it will work 
all the time. (You have been checking it as we went 
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along, haven’t you?) First, let’s make a couple of very 
small changes to the existing program. Change line 10 
(of listing two) to: 

10 DEFINT A-Z: DEFSNG A,N: S=1000: DIM A(S) 

Return line 20 to its original format and change “S/4” 
in line 30 to “S.” 

The array and variable will now be single precision 
values. Remember, up until now you have been working 
with integers only. Now RUN the program. This time, 
for the input requested, try a number with a decimal 
fraction (101.7 will be used for trial purposes). Enter it 
now. Go ahead. Use the BREAK key, or just watch the 
pretty numbers fly by for the rest of your life. 

What happened? Things were going so well. What 
happened was that you looked for a number that was 
within the range of the contents of the array (zero to 
1000) but was between two contiguous values, 101 and 
102, in the array. Neither PH nor PL reached the upper 
or lower limit of the array, so you end up in another 
perpetual loop. If you used 101.7 as your input, then you 
noticed that PL and PM locked in at 101 while PH 
remained at 102 during the loop. This situation can 
occur with any variable type except integers and places 
limits on your ability to search for string, single 
precision or double precision variables. 

The cure for this problem is easier to discover than you 
might think. Actually, there are several methods of 
overcoming the limitation. I will examine one that will 
get you out of the loop with the least amount of overhead 
during runtime. It is obvious from the screen display 
that the pointers stopped moving at some point in the 
middle of the array where it depended on the value you 
entered. The sum of the two pointers PL and PH will 
remain constant at that time. Y ou will take advantage of 
this fact to detect the looping condition. Only three 
changes to our program are needed at this point to make 
it work. 

In line 40, insert “PC=0:” at the start of the line. In line 
60, between IF and PM=<PB insert “((PL+PH)=PC) 
OR”, and finally at the start of line 70 insert 
“PC=PL+PH:”. Of course, you do not insert the 
quotation marks in these corrections, just the data 
between them. The program listing should now look like 
listing four. 

It’s time to run it again, so try it now. Use any legal 
single precision value that you want to as input. Listing 
four gives the general format for a search routine that 
will allow you to take advantage of both the speed of a 
binary search and the versatility of a sequential search. 



Listing 1 — Quick Find 

5 ' 

6 ' JERRY L. LATHAM 

7 ' 1409 EVERGREEN CIRCLE 

8 ' MIDWEST CITY, OK 73110 

10 DEFINT A-Z: S=1000: DIM A(S) 

20 FOR X=0 TO S: A(X)=X: NEXTX 
30 PRINT: PRINT"ENTER NUMBER ( 0 -"S") 
TO SEARCH FOR : INPUT N: PRINT TIME 
$ 



40 PB=0: PL=0: PT=S: PH=S+1 : PM*- (PH-PL) 
/2+PL: PRINT"PL","PM","PH" 

50 PRINTPL,PM,PH: IF A(PM)=N THEN PRINT 
TIMES: PRINU'FOUND IT"; A(PM) ;"=";N: 
G0T030 

60 IF PM=<P8 0RPM>=PT THEN PRINT"ITEM N 
OT FOUND": PRINT"PL","PM","PH": PRINT 
PL,PM,PH:G0T0 30 

70 IF A(PM) >N THEN PH=PM: PM=(PH-PL) /2+ 
PL: GOTO 50 

80 IF A(PM) <N THEN PL=PM: PM=(PH-PL) /2+ 
PL: GOTO 50 

90 PRINT"ERR0R! PASSED =,>, AND < CHECK 
S!!": END 

100 END 



Listing 2 — Quick Find 

5 ' 

6 ' JERRY L. LATHAM 

7 ' 1409 EVERGREEN CIRCLE 

8 ' MIDWEST CITY, OK 73110 

10 DEFINT A-Z: S=1000: DIM A(S> 

20 Y=0: FOR X=0 TO S-4 STEP4: A(X)=Y: A 
(X+1)=Y: A(X+2)=Y: A(X+3)=Y: Y=Y+1 : N 
EXTX: A(1000)=S/4 

30 PRINT :PRINT"ENTER NUMBER (0 -"S/4") 
TO SEARCH FOR INPUT N:PRINT TIMES 

40 PB=0: PL=0: PT=S: PH=S+1 : PM=(PH-PL) 
/2+PL: PRINT"PL","PM","PH" 

50 PRINTPL,PM,PH: IF A(PM)=N THEN G0SUB 
110: PRINT TIME$:G0T0 30 
60 IF PM=<P8 OR PM>=PT THEN PRINU'ITEM 
NOT FOUND": PRINT"PL","PM","PH":PRINT 
PL, PM, PH: GOTO 30 

70 IF A (PM) >N THEN PH=PM: PM= (PH-PL) /2+ 
PL: GOTO 50 

80 IF A (PM) <N THEN PH=PM: PM= (PH-PL) /2+ 
PL: GOTO 50 

90 PRINT"ERR0R ! PASSED =,>, AND < CHECK 
S!!": END 

100 IF PM=0 THEN GOTO 130 
110 PM=PM-1 : IF A (PM) =N THEN GOTO 100 
120 PM=PM+1 : IF PM>PT THEN GOTO 160 
130 PRINT "MATCH FOUND AT ITEM ";PM;" 2 
;A(PM) ;"=";N 

140 PM=PM+1 : IF PM>PT THEN GOTO 160 
150 IF A(PM)=N THEN GOTO 130 
160 PRINT"N0 MORE MATCHES FOUND" 

170 RETURN 

Listing 3 — Quick Find 

5 ' 

6 ' JERRY L. LATHAM 

7 ' 1409 EVERGREEN CIRCLE 
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8 ' MIDWEST CITY, OK 73110 
10 DEFINT A-Z: DEFSNG A,N: S=1000: DIMA 
(S) 

20 FOR X=0 TO S: A(X)=X: NEXTX 
30 PRINT: PRINT"ENTER NUMBER ( 0-"S") T 
0 SEARCH FOR : INPUTN: PRINT TIMES 
40 PC=0: PB=0: PL=0: PT=S: PH=S+1 : PM=( 
PH-PL)/2+PL 

50 PRINT PL,PM,PH: IF A(PM)=N THEN GOSU 
B 110: PRINT TIMES: G0T030 
60 IF ( (PL+PH) =PC) OR PM=<PB OR PM>=PT 
THEN PRINT"ITEM NOT FOUND": PRINT"PL" 
,"PM","PH": PRINT PL,PM,PH: GOTO 30 
70 PC=PL+PH: IF A (PM) >N THEN PH=PM: PM= 
(PH-PL) /2+PL: GOTO 50 
80 IF A (PM) <N THEN PL=PM: PM= (PH-PL) /2+ 
PL: GOTO 50 

90 PRINT"ERROR! PASSED =,>, AND < CHECK 
S! ! "END 
100 END 

110 IF PM=0 THEN GOTO 140 
120 PM=PM-1: IF A (PM) =N THEN GOTO 110 
130 PM=PM+1 : IF PM>PT THEN GOTO 170 
140 PRINT"MATCH FOUND AT ITEM ";PM;" " 

;A(PM) ;"=";N 



150 PM=PM+1 : IF PM>PT THEN GOTO 170 
160 IF A(PM)=N THEN GOTO 140 
170 RETURN 



Listing 4 — Quick Find 

10 DEFINTA-Z:DEFSNGA,N:S=1000:DIMA(S):F 
ORX=OTOS : A (X) =X : NEXTX 
30 PRINT: INPUT"ENTER ITEM TO SEARCH FOR 
";N:PC=0:PL=0:PT=S:PH=PT+1 :PB=PL-1 :IF 
PB<0THENPB=0 : PRINTTIMES 
50 PM=(PH=PL)/2+PL:IFA(PM)ON THEN120 
60 IFPM=0THEN90ELSEPM=PM-1 :IFA(PM)=NTHE 
N60 

80 PM=PM+1 :IFPM>PTTHEN110 

90 PRINTA (PM) : PM=PM+1 : I FPM>PTTHEN1 1 0 

100 IFA(PM)=N THEN90 

110 PRINT"LAST MATCH": PRINTTIMES :G0T030 

120 I F ( (PL+PH) =PC) OR (PM=<PB) OR (PM>= 
PT) THENPRINT"ITEM NOT IN ARRAY": PRIN 
TTIME$:G0T030 

130 PC=PL+PH:IFA(PM)>NTHENPH=PM:G0T050 
140 PL=PM:G0T050 
150 END 



EffSYPRO 2.0 

Word Processor 



★★★★ 



STILL ONLY 
* 35.95 
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• Easy to use. Full screen editing. Written in fast 
machine language code. Can accept text at the 
rate of 64 characters per second. Any printer 
that can use the BASIC’s LPRINT without 
auxiliary software will work with this word 
processor. 

1 Dynamic display of line number, cursor position 
and end of text line appear on the first line of the 
video display. Prompts will also appear on the 
first line to assist the user in implementing 
various processor commands. DOS error mes 
sages appear on the first line. Repeat key. User 
selectable repeat key rate. 

> Global find. Global search and replace or delete 
within text or block. Block move, copy or delete 
of text. 

1 Single keystroke insertion/deletion of character or 
line. Scrolling by line or page up or down. Scrolls 
at the rate of 20 lines per second. Scrolls also 
page by page (15 lines to a video page). Scrolling 
will wrap around to the top or bottom of the 
buffer. Enter the line number and jump to that line 
in the buffer. 

Set tab positions as on a typewriter. Bi direc 
tional tabbing. Underline, expanded characters, 
control character pitches, enhanced type, con 
densed type, intermix printer controls including 
right justify, margins, etc. within a line. User 
definable headers and page numbers. 



• User definable left margins, line length (3 to 
2551, page length, and form length. All imbedded 
within the text for dynamic printer control. 

• Upper/lower case printout (on printers that 
accept lower case) even on computer videoes 
that don't display lower case. 

• Dynamic printer control of margins, line length, 
type size, fonts, page length. The dynamic control 
of the margins will allow indenting so that 
outlines may be printed and still be properly right 
justified. Permits embedding ASCII printer 
commands into the text. 

> Save printer control codes to be used and applied 
to defined mnemonics. Prints text to nearest 
word or right justifies. User can control right 
margin. Printout lines with lengths of up to 255 
characters. 

1 Block load and insert or append. Block or total 
save to user specified files. Exit program to issue 
DOS commands and then return to the text 
intact. 

> Full screen editing of BASIC, EOT ASM. or other 
ASCII files. Stores text in standard ASCII format. 
Edit, load, and save files larger than the buffer 
size and still load or save blocks of text to files 
other than the open file. Works with TRSDOS, 
TRSDOS III, LDOS, MULTIOOS, DBLDOS. and 
other common operating systems. 



97% CUSTOMER SATISFACTION RATF. 

TRS80 MOOEL, I OR MODEL III. DISK (48K) OR TAPE (32K OR 48KI 



( 617 ) 334-3741 




FGfl SOFTWARE 

1 1 Hampton Court 
Lynnfield, MA 01 940 



How To Enter Our Listings 

Our program listings come directly from the submissions of our authors. We do 
not edit them at all (that's why you sometimes see spelling errors in them). We run 
all submissions and make sure that they do work. 

To enter one of the listings given make sure you have the type of computer 
specified and all necessary programs, operating systems, or hardware that the 
program uses. Type in the program exactly as it appears in the magazine. Be extra 
careful so you do not confuse 0 (zero) with O or 1 (one) with I or L. Save the 
program to tape or disk before running it. On long programs it is wise to save it as 
you go along, thus protecting yourself from having to re-enter the whole program 
if the lights go out. 

Here are some tips to help you catch errors that you may have made I n typing. If 
you get an out of data error, the problem lies in the DATA statements, rarely in the 
READ line that the computer refers to. Check all DATA lines to see that they are 
correct and that no commas or values are missing. It might be useful to print each 
variable after it is read, that way you can follow the computer as it goes through 
the data. Just insert a PRINT variable right after the READ variable command. 

Many of our authors use a linefeed, or downarrow, in their programs. If you see 
lines of code that have many blank spaces and then they begin again on the 
next line with more code, a linefeed was used. Even if you don't use them, the 
program will run but the video display may be messed up. 

You will find the TRON command helpful in following the program's logic. By 
turning the trace command on, TRON, you can see what lines are being 
executed by the program. It is very useful in catching GOTO or GOSUB errors and 
incorrect references to linenumbers. Don't worry about video formatting when the 
trace is on, it will be quite messy. 

If you find yourself getting TM or type mismatch errors, check carefully the use of 
the $ symbol. Also look at the beginning of the program to see if you correctly 
entered the DEFINT or DEFSTR statements. 

Function call errors usually occur when a variable has a value that is not 
allowed. Check all variables that are being used by the function, one of them 
probably has the wrong value. 

If after all that, you can't get it to run. send us a paper listing of your program, 
what systems you are running it on, and carefully document the error you are 
getting. We will do what we can to fi nd the flaw. It is very difficult for us to try to help 
you debug errors over the phone. Check Letters and Notes, etc. in the next few 
issues for updates or conversions. Many times a reader will tell howto embelish a 
previously published program. 
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Ammicro introduces 
the first letter quality printer for $680 
that can also be used as a typewriter. 




The MICRO WRITER" Daisy wheel printer. 



There was a need for a low cost letter quality machine that would 
be suitable for use as an office typewriter, and as a computer printer. 
Ammicro met that need by combining the Microwriter parallel inter- 
face and the traditional Olivetti craftsmanship that was available in 
their Praxis machine. 

With the Microwriter you can have the best of both worlds a let- 
ter quality printer, and a high quality office typewriter all in one 
machine, that sells for less than the cost of a good dot matrix printer! 

It’s not just printer or a typewriter that comes complete with a 
deluxe carrying case, but a feature-packed, lightweight machine that 
doubles as an office typewriter. This printer is a simple, low cost, 
reliable unit which can be utilized with word processing systems, 
microcomputers, personal computers, and small business systems. 
The Microwriter’s low noise level and slim modern styling allow it to 
blend with any decor. 

The Microwriter’s print quality is identical to the finest office 
typewriters on the market. This machine is not only perfect for let- 
ters and manuscripts, but with it s 165 character, 12 inch print width, 
the machine is perfect for letter quality budget spread sheets, price 
lists, data sheets, and forms. 

The Microwriter can tab, rule single lines both vertical and 
horizontally, underline and print at 10, 12, or 15 characters per inch 
(switch selectable)! Its ten character memory for automatic error 
correction, liftoff correction ribbon, and fixed or programmable page 
formats are a few of the many features that make it a perfect office 
typewriter. Microwriter not only handles letter and legal size sheet 
paper in widths up to 12 inches wide, but also handles fanfold paper. 

There’s a wide selection of 21 interchangeable daisy wheels 
available. And ribbon cassettes that just drop in. With the 
Microwriter you will never again have to send an important letter or 
a simple correspondence that doesn’t look impressive. 



It s operation as a computer printer is simple. Just load it up with 
paper and you are ready to go. Centronics compatible parallel output 
cables are currently available from stock for the following com- 
puters: IBM PERSONAL COMPUTER™, OSBORNE lTM f 
ZENITH Z-100™, BURROUGHS B-20™, Convergent 
Technologies models IWS & AWS™, TRS-80 MODEL I, II, III™, 
APPLE II™ . . . custom cables also available by special order. 

This machine creates a new standard by which all current low 
cost letter quality printers will follow. Ammicro’s Microwriter is tru- 
ly designed for the lifestyles of the 80’s and for decades to come. 

Why settle for just any printer when you can have a 
MICRO WRITER. . . .a fine letter quality typewriter for you and 
your computer. 

The Microwriter is the only daisy wheel printer on the market for 
$680. For more information, see your local computer dealer or con- 
tact Ammicro directly. 




122 East 42 Street, Suite 1700, New York, N.Y. 10168 
(212) 254-3030 



DEALER INQUIRIES 
INVITED 

For orders call: 

1 - 800 - 251-5110 

MICROWRITER is a trademark ot Ammicro 
Corporation. PARAXIS 30 is a trademark ol Olivetti 
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DMP-2100 Printer 
$1995.00 

Available at Radio Shack Computer 
Centers 

I just sold my daisy wheel printer in 
favor of a new dot matrix printer. I do a 
lot of word processing so I really need a 
letter-quality printer so magazine editors 
don’t go blind reading my submissions 
(Thank you -Ed.). I know you’re 
thinking, “So, what are you doing selling 
your daisy wheel! A dot matrix printer 
surely isn’t letter quality!” Normally, 
that is the case. Dot matrix printers, on 
the average, use a nine-wire print head 
which gives that famous “computer 
printout look” that is easy to spot by 
anyone with even fair eyesight. Well, this 
printer has a 24-wire print head and, in 
the proportional word processing mode, 
you would really have to look hard to tell 



its output wasn’t done by a good quality 
typewriter. As an extra benefit, it prints 
at over twice the speed of my daisy wheel 
(43 versus 100 characters per second), is 
quieter, and smoother! In the data 
processing mode, which is nice looking 
as well, it speeds along at 160 characters 
per second! I think it’s the best of both 
worlds. 

My new printer is the Radio Shack 
DMP-2100. It has a word processing 
mode (correspondence or proportional) 
which rivals daisy wheel printers. I’m 
not an easy person to please, but I am 
sold. It also has all the features you could 
want from a dot matrix printer such as 
dot-addressable graphics with a 
phenomenal 32,400 dots per square inch 
resolution! Other print modes are 
boldface, expanded, standard, ten, 
twelve or 16.7 characters per inch, 



underlining, and more. All this without 
having to change daisy wheels. 

The DMP-2100 can be used with any 
size paper or labels up to 15 inches wide. I 
was a little disappointed that it didn’t 
come with continuous tractor capability. 
The tractor feed is $170.00 extra. The 
front panel control switches are touch- 
sensitive and respond very well. Under 
the front lid are a set of dip switches that 
allow you to set which mode you want the 
printer to power-up in. The case is the old 
standard battleship gray. It would have 
been nice if the printer’s case color could 
have been matched to my Model 12’s off- 
white/cream color. 

I must say I’m very satisfied. I think 
this state-of-the-art printer signals the 
demise of the daisy wheel printer. A bold 
statement I know, but if a dot matrix can 
be made to look this good, think about 
next year’s model. You should go take a 
look at this printer and get someone to 
demonstrate all of its different 
capabilities to you. I think you will be 
impressed. The word processing 
proportional mode looks great to me, but 
you still may prefer a true daisy wheel. I 
compared a sheet of text from my daisy 
wheel to the new DMP-2100 in the 
proportional mode and I liked the DMP- 
2100 output better. It’s much quieter than 
the daisy wheel but it still may be a little 
loud for a quiet office area. In most cases, 
it should fit in very nicely. There is an 
optional single-sheet feeder that costs 
$995.00 for those who want to use their 
own letterhead. I, personally, let the 
DMP-2100 draw my own letterhead. For 
those times when I send out form letters, 
I’m seriously thinking about letting it 
sign my name also! I like to have my cake 
and eat it, too. 

Pete Carr 



Zorloff II 
Models I/III 

Anitek Software Products 
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P.O. Box 1136 
Melbourne, FL 32935 
(305) 259-9397 
$69.95 plus $2 shipping 

Zorlof “the Magnificent” is one of the 
new generation of word processors with 
features which would have been 
unobtainable, or unacceptably 
expensive, as recently as two years ago. 
Its most arresting feature, in fact, may be 
its price — an unbelievable $69.95. The 
nearest comparable program is 
Newscript, at $126 list. Zorlof is, beyond 
question, a “best buy.” 

The price, however, may be one of the 
things which have slowed its acceptance 
on the market — that and its unfortunate 
name, which is bound to remind people of 
the sleazier kinds of “adventure,” those 
which mix elements from six or eight 
irreconcilable mythologies and 
traditions, with no interest at all in their 
specific contexts or meanings. (Zorlof 
will probably turn out to be somebody’s 
mother’s maiden name, now that I have 
said all this, and I will have made yet 
another deadly enemy!) 

Release II came out in December, 1982, 
and since then there have been numerous 
updates until 2.19H, which is the one I 
am using. 

No program on the market offers more 
major features. Some minor ones, like 
separately-defined odd and even page 
headers and footers, are otherwise not to 
be had without CP/M and 400-odd 
dollars. Perfect Writer, for instance, 
allows them. 

The program is screen-oriented, with a 
“live screen” correctable either by 
insertion or by over-typing, at any time. 
Special characters and such things as 
italics and underlining are entered on a 
command line preceding the line you 
want to modify. It is a good idea, by the 
way, to put in these command lines last 
since the program cannot justify text 
across their boundaries. 

Zorlof supports all available types of 
printers and will allow such unique 
tricks as proportional spacing on the 
Epson (the result is not very attractive, 
but it is an interesting thing to be able to 
do), super- and sub-scripts, and special 
character-sets and diacritical marks 
(even user-defined ones, for those willing 
to take that much trouble). 

What the user sees on loading Zorlof is 
a blank screen with two status lines. The 
topmost of these tells the name of the file 
in memory, its width in characters (these 
two can be altered at will), the word- and 
line-count, and the free space available. 
At power-up, working on the Lobo Max- 
80, I get 25,708 bytes for this last figure, 
and I suppose Models I and III will not 
vary much from this. 

The second status line is for search and 
replace operations, to enter the 
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combination of characters to search (SH) 
and its replacement (RP). The user can 
perform these functions one at a time, or 
let the program do them automatically. 

The manual tells you the command to 
get you into the status lines is Clear -= 
(that is, clear-shift-hyphen, all three keys 
held down together). I have found it 
unnecessary to use the shift key. The 
same is true for the block delete 
command, Clear-*. 

Now, you may simply start typing, and 
learn how to format the text for printout 
later (the manual is elaborately cross- 
referenced and abundantly clear) or, if 
you have a file saved, call up the 
directory (Clear-D), load the file from it 
(Clear -G), and continue from there. 

Editing functions and printer 
commands occupy both sides of a 66-line 
cheat-sheet. It would be foolish to try to 
summarize them here, but I must stress 
their comprehensiveness (almost any- 
thing you might want to do, you can) and 
their ease, both in use (most are single- 
keystroke commands using Clear for a 
control key) and in memorizing (the 
letters chosen usually have a clear 
mnemonic relation to the desired result: 
K for Kill, I for Insert — that sort of 
thing). 

Text larger than memory can be 
printed via chained files, and Release II 
also supports editing of BASIC and 
EDTASM files, form-letter processing 
and (a remarkable convenience) what it 
calls “Zap-processing,” which allows 
you to call up any file in Hex-&-ASCII 
format, patch it to suit, and return it to 
disk as patched. 

The program’s shortcomings are few. 
The most important to me is that you 
must fix the line character-count for the 
whole text in advance, and cannot 
modify small sections at will. This 
means that footnotes and embedded text 
formatted in condensed type will be 
significantly shorter in inches than the 
main text. I can get around this by 
chaining files, but it is an annoyance. 

The Max-80 with LDOS 5.1.3 has a 
print-spooling feature, and certain 
highly desirable user-defined keyboard 
characteristics. In the interest of porta- 
bility, I suppose, Zorlof supports no DOS 
calls at all (it even has its own keyboard 
driver) and if you are running LDOS, you 
must count that a shortcoming. Even 
LDOS does not allow access to the Max- 
80’s upper 64K memory bank. The 
provisional release of CP/M lets you use 
it only as a virtual disk, although CP/M 
3.0 will support bank-selection of 32K 
blocks when it comes out — so it would be 
unfair to blame Zorlof because it does 
not. 

Documentation is superb, customer 
support admirable. I owe Anitek’s 
president, Peter Ray, the notice of a 



Basic 

Computing 

ivubmuwjoumib 

Become a Basic 
Computing Author 

Do you have a useful program? Would 
you like to tell others about a successful 
computer application? Have you 
something to say about your new TRS-80 
hardware or software? Did you discover a 
new way to use your software? If so, Basic 
Computing would welcome your 
submission. Microcomputing is extremely 
new and your experiences can be helpful 
to others. To help you get original material 
ready for publication, here are a few 
guidelines. 

Use your own words. Write as much as is 
necessary to tell the story but stay to the 
point. Most submissions run about five to 
ten typewritten pages in length, excluding 
any programs. Avoid jargon or technical 
phrases and don't be afraid to define the 
terms as you go. Many of our readers are 
new to computing and are probably not as 
proficient as you are. 

Please submit typed, double spaced, 
text that is in upper and lower case. Include 
pictures or figures when appropriate. Be 
sure that all drawings are carefully done, 
with black ink on white paper. We prefer to 
shoot pictures from your originals rather 
than use an artist. Pictures can be in color 
or black and white. Our readers might like 
to know something about you. so include a 
brief autobiographical paragraph if you 
wish. 

Programs that accompany articles must 
be submitted on cassette tape or diskette. 
Clearly label the media with your name, 
the program's name, and the type of 
system it runs on. Include a paper listing as 
well. Programs that can run on more than 
one model of TRS-80 are especially 
desirable. Your chances of acceptance 
increase greatly if it can appeal to more 
readers. Material that is extremely 
hardware or software dependent has a 
lower chance of being accepted. 

All references to marketed software or 
hardware should include the manufactur- 
er's name, address, and current price. If you 
are sending in a review, be sure to tell the 
version number of the material under 
evaluation. Reviews are not sent to the 
company for comment prior to 
publication. 

You will receive a notice that your 
material has arrived. If the material is 
accepted, our check will be included. We 
pay on acceptance, not publication. We 
are purchasing all publication rights to the 
article and associated programs. We do 
not guarantee publication of the material. 
Our payment is not on a per page or per 
word basis. Most authors can expect $100 
to $200 per feature article and $35 to $50 for 
reviews. After publication, the original 
material is returned to you. For rejected 
articles, all material is returned. 

That is all there is to it. For even more 
details, write for a copy of our Author's 
Guide. Once your article is accepted, look 
for it to appear. While you wait, get going 
on the next one. It is your support that 
makes Basic Computing special. 
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obedience train 
your Model 1/3/4 

UTILIPAK $24.95 

A baker's dozen useful utilities: One -key date 
recall; USR functions join, split BASIC 
program lines; link/unlink CRT, printer with 
single key stroke; swap decimal, hex by USR; 
send printer control codes from DOS; USR$s 
for upper, lower case; more. Models 1, 3; 
works with any DOS. 

FAST4/CMD $14.95 

Run your Model 4 full speed with Model 3 
DOS. Unlike "POKE 16912," FAST 4 does not 
affect any other function. Automatically 
adjusts clock for faster speed. Leave on during 
disk I/O. Change speeds at will. Use with any 
Model 3 DOS. 



the software factory 

12101 N. Western View 
Oklahoma City, OK 73132 
(405)728-3312 CIS 73105,1650 

Add $3/order postage and packing. 

Sorry . no COD or credit cards yet , 
but we don't wait for checks to clear. 

Dealer Inquiries Invited 



SECUR-IT 








Secur-It Disk File storage containers offer 
safe, no-spill portability and secure, orderly 
storage for your diskettes. 50 diskette ca- 
pacity. Walnut wood grain or black for 514" 
or 8" diskettes. 514" files, $29.95 ea., 8" files, 
$39.95 ea. Specify color & size. 

Model I/IKI Software 



• Send For Free Catalog 
• For Fastest Service Send Money Order Or 
Certified Check • Add $ 2.00 Shipping 
Charge Per Order • Calif. Residents 
Add 614% Sales Tax • All Merchandise 
Shipped From Stock • 



REM Industries, Inc. 

9420 "B" Lurllne Ave., Chatsworth, Co.. 91311 

(213) 341-3719 




Color Computer 
Secrets Revealed 



Learn all about the secret inner workings of your 
Color Computer. This new book tells you how to: 

■ Make back-up copies of machine language 
programs. 

■ Merge two or more BASIC programs. 

■ Increase your memory for free. 

■ Upgrade your Color Computer to 16K, 32K or 
64K RAM and add Extended BASIC. 

■ Run your computer at twice normal speed. 

■ Use a myriad of PEEK and POKE statements. 

. . . and much, much more. 

All this in on eosy-to-read and profusely illus- 
trated book. A must for every Color Computer 
owner — just $1 1 .95 + $2 shipping Order direct 
from: 

B disk ’n data rn 

5450 Rugby Street 
Burnaby, B.C., Canada V5E 2N1 




SUPER — P/R PAYROLL 

Power and flexibility for all your payroll needs . . . from 
5-employees to an accounting firm with 30 payrolls. 

SAMPLING OF FEATURES 

• Machine language aorta. 

• Multiple state tax withholding. 

• Departmental payroll journals. 

• Report generator for non-atandard 
reporta. 

• 14 User Defined Earninge/Deduction 
Categories With Employee Base 
Pates. 

• Works with all DD8EB. 

• Data file conversion for Radio Bhack 
Disk Payroll [SB-15BB] users. 

• 150-page comprehensive User's 



Manual. 

Complete System $225 Credit 

Manual With Demo System $55 $45* 

Manual Only $35 $35* 



'Credit allowed when Complete System is purchased in the future. 

Users say BUPER-P/R is simply the beat. 

If you don’t agree, return the Complete System with- 
in 60 days for a full refund (less $25 Eval. Charge.) 

MICROCOMPUTER APPLICATIONS 

3485 Mock Oranga Court Bouth 
Balam, Oregon 9730E 
[503] 384-1080 

Write or leave message for free brochure or addi- 
tional details. Specify Model I, Model III, or Model 4. 



LIMITED OFFER 



NEWDOS - 80 ver. 2.0 
and DOSPLUS ver. 3.4 

A combined regular price of 
$299.96 

Now $149.00 combined 

nrmo 



or call for separate pricing. Offer 
subject to cancellation without 
notice. 
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CALL TOLL FREE 
800-835-0071 




526 E. 4th 



HUTCHINSON, KANSAS 67501 







The House-Ware Genies 

★ The Mail Genie 

★ The Pantry Genie 

★ The Recipe Genie 

★ The Calendar Genie 

★ The Insurance Genie 



At last, the Turn-Key Programs that 
allow Dad to influence Mom, that a 
TRS™ -80 Model III and Color Com- 
puter is a modern day necessity. 




Introductory 

Price 



$29.95 



Developed By 
SOUTHERN CENTER 
FOR RESEARCH & INNOV ATION 
P.O. Box 1713 
Hattiesburg, MS 39403 
TELEPHONE 601-545-1680 
TELEX 585400 SCRI US HATI 
CABLE SCRI US 



Dealer Inquiries Invited 



TRS-80 MODEL I™ * 
GOLDPLUG - 80 

Eliminate disk re-boots and data 
loss due to poor contact problems 
at card edge connectors. The 
GOLD PLUG - 80 solders to the 
board card edge. Use your ex- 
isting cables. 

CPU/keyboard to 

expansion interface $18.95 

Expansion interface to disk, prin- 
ter, RS232, screen printer 

(specify) $9.95 ea 

Full set, six connectors. . . $54.95 




EAP COMPANY 
P.O. Box 14, Keller, TX 76248 
(817) 498-4242 

inSfisiMiM 

Tandy Corp. 



5 LARGE CAPACITY > 

fc ACCOUNTING PROGRAMS > 



o 

2 ACCOUNTS RECEIVABLE 

o 

III 
G 
cc 
< 



* 5000-F ACCOUNTS 

30-60-90 DAYS AGED STATEMENTS SHOW 
DATE/I NV#/DESCRIP/AMT(WITH AGEING). 
SELECTIVE FINANCE CHARGES & RATES. 
FAST ENTRY, POSTING W/AUDIT REPORT, 
SUB-ACCTS, % OF CREDIT LIMIT, DATE OF 
LAST PAYMENT. SALES ANALYSIS. 

GENERAL LEDGER 

s 400+ ACCOUNTS 

+ REPORTvFLEXIBILITY/CAPACITY/DETAIL 
+ DEPARTMENT P & L (UP TO 9) 

+ UP TO 100+ SUB-TOTALS 
+STATEMENT OF CHANGES (ASSETS ONLY] ” 
+ PERCENT P & L - MONTH vs YEAR 



1 49.95 Each ★ Both for 1 99.9 5 

Model 1, 3, 4, LNW, MAX-80 h 
HARD DISK Versions Available 5 



H. D. P. 

2059 West Lincoln 



Oroville, CA 95965 
916 -533-5992 



★ Manual & Sample CT 
Disk — $30.00 Ea. 2 



VISA - MC W 

or COD O 

AllOVdVO 30UV1 M31SAS A1I9V* 



m 

SSH 



33 

'9 



IEEE-488 TO TRS-80* INTERFACE 

Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-80 Model 1, 3 or 4, Level 2 or DOS 
with a minimum of 16K. 



J . EL 

I 



(488-80C 

| For Model 3 or 4 
Operation 488-80B 

For Model 1 
Operation 






Model 488-80B or 488-80C Price: $375 

+ shipping, insurance & tax 

WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING 
LABORATORIES 

11 Neil Drive • Old Bethpage, NY 11804 
Telephone: (516) 694-3370 
'Trademark of Tandy C orp, 



There is no affiliation between Scientific 
Engineering Laboratories and Tandy Corp. or 
Radio Shack. 
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catastrophic misprint in the current 
Epson manual — a misprint he 
mentioned in the course of a discussion of 
my difficulties obtaining superscripts 
with Zorlof. It seems Epson printed 5D 
for the command in question, when the 
correct hex numeral was 53. May this 
assist future strugglers! 

I was able to make the program crash 
once, but I cannot tell you how it was 
done, or repeat the feat. Most of the 
possible mistakes will go to a thorough 
error-trapping routine and the 
potentially-catastrophic commands (to 
kill files, or delete memory, for instance) 
must be entered on a “tell me twice” 
basis. 

I think Zorlof s most attractive feature 
is the way it allows multiple paths 
toward the same goal. There are, for 
example, four ways of underlining text. 
If one way doesn’t work, or has 
undesirable side-effects, try another. I 
like that. But then, it is a likeable 
program. 

R. W. Odlin 

Zorlof f Version 2.19J corrects the last 
little bug I had spotted and adds an exit 
to DOS command and interfacing with 
Electric Webster. A new release, called 
LeScript, will be out soon and will 
support 150-odd printers, add “10 or 12 
major features” and cost about $60 more. 
It will work on 80x24 videos and will be 
quite a buy. 



Sooper Spooler 

For all models 

Compulink Corporation 

1840 Industrial Circle, Longmont, 

CO 80501, (303) 651-2014 

$349 basic unit 

$444 basic unit plus serial I/O 
$508 basic unit with 62K RAM 
$603 basic unit with 2 serial ports 
and 64K RAM 

The Compulink Corporation has 
released a Z-80 controlled, hardware 
printer/spooler for the microcomputer 
market. This device allows your 
computer to dump information out of 
memory into the SooperSpooler as fast as 
it can (up to 3,000 characters per second), 
without your computer having to wait for 
your printer to finish printing each line 
before the computer can send the next 
line of data to be printed. If you own a 
slow (below 55 characters per second) 
printer, this can mean a tremendous 
computer time savings of up to half an 
hour or more. It takes me only a few 
seconds to LLIST a 30K program to the 
SooperSpooler, and while the Sooper- 
Spooler is sending my listing to my 
Radio Shack Lineprinter II (which takes 
about 15 minutes to print it out), I can go 
back to programming, word processing, 
or even turning the computer off so I 
Refer to advertiser index for reader service number 



don’t have to worry about glitches! 

The Compulink SooperSpooler (which 
I have sitting under my LP II) packs a lot 
of features into a small package. The 
physical dimensions are only 3 inches 
high, 10.3 inches wide and 8.6 inches 
deep. On the front panel are the on/off 
switch, the buffer reset switch, the 
pagination switch and the space 
compression switch (which, when 
pressed, compresses up to 256 
consecutive spaces into only one byte). 
There is also the buffer status display. 
The buffer status display is a two-digit 
display that tells you how many 
kilobytes of buffer RAM are currently 
occupied by your text. 

The pagination switch serves four 
purposes. Pressing it while turning the 
unit on selects the single-sheet feed 
option where the unit stops the printer 
after every page and waits for you to 
signal for the next page. Pressing it after 
the unit is on will enable automatic 
pagination and ensure that the page 
perforations are skipped. Pressing it 
while the printer is running will cause it 
to halt the printing until you indicate it 
should resume. This lets you change 
paper, ribbon, or whatever. Pressing it 
simultaneously with the space 
compression switch begins the Sooper- 
Spooler selftest mode. 

The selftest mode of the SooperSpooler 
checks the 2K ROM of the Sooperspooler 
for defects, then checks the RAM eight 
times. As it is checking the RAM, the 
buffer status display counts from 11 to 88 
in steps of eleven, as a visual indication 
of the RAM test progress. 

Oh the back of the unit are the 
connectors for hooking up the unit to 
your computer and printer, the primary 
configuration switches and the “hard” 
reset switch (which resets all parameters 
of the unit to the default setting of a 
normal powerup). The primary 
configuration switches tell the unit what 
type of handshaking you want if you 
have the serial port option, whether you 
want the unit’s output sent to the serial 
port or the parallel port, whether or not to 
issue a form feed or a series of line feeds 
to advance the printer to a new page, 
whether your computer outputs a 
carriage return and a linefeed at the end 
of each line or just a carriage return, and 
whether your printer needs a carriage 
return and a linefeed to go to the next line 
or if it needs only a carriage return. 

In addition to these hardware features, 
there are software-selectable features: 
space compression, pagination, page 
length (1 to 127 lines), printed lines per 
page (1 to 127 lines), printing a header 
(up to 70 characters long) at the top of 
every page, automatic page numbering, 
single sheet printing, line formatting 
(indenting that portion of each line that 



is longer than one printed line, very 
helpful on listings), left margin set 
(position 1 to 127), right margin set (print 
position 10 to 127), serial or parallel 
printer output, carriage return and 
linefeed set, type of form feed used by 
your printer, “hard” reset (these last 
three are the same functions as the 
hardware switches), redefine the default 
form feed character expected by the unit 
from your computer, redefine the default 
form feed character sent to your printer 
by the SooperSpooler, redefine the 
default escape character, and trigger the 
selftest mode of the SooperSpooler. 

The parallel ports are set to the 
Centronics standard, using 36-pin 
connectors. The only problem I had with 
mine was a faulty cable. I used Radio 
Shack’s Expansion-Interface to 
Standard Printer cable (the same one 
used to connect your Model I or III to the 
Radio Shack Daisywheel II, or 
Lineprinter VII or VIII). Compulink told 
me they sell the same cable for $30, which 
is cheaper than Radio Shack’s. 
Compulink also sells the cables that 
connect the SooperSpooler to the 
Lineprinter II and IV, and any of the 
Radio Shack “standard” parallel 
printers. 

In addition to these standard features, 
you can also buy the SooperSpooler with 
RS-232 ports installed, one for input and 
one for output. When you add the RS-232 
option, another set of configuration 
switches are added to the rear of the 
unit’s cabinet. These switches control the 
baud rate (110, 150, 300, 600, 1200, 2400, 
2800 and 9600, each port separately 
selectable), seven-bit or eight-bit word 
length, one or two stop bits, and even-, 
odd- or no-parity check. Through the 
software, you can establish hand- 
shaking, or you can use hardware hand- 
shaking with the handshaking switch. 

The Compulink SooperSpooler is 
available in four configurations: 1) The 
basic unit, consisting of a 16K RAM 
buffer, printer controls and parallel port, 
which retails for $349. 2) The basic unit 
plus a serial I/O port, which costs $95 
more. 3) The basic unit with 62K of RAM 
(there is a 2K ROM used for firmware 
controls of the unit), which costs $159 
more. 4) The basic unit with both serial 
ports and a full 64K of RAM, which 
retails for a total of $603. 

The Compulink SooperSpooler is very 
simple to set up and use. I just plugged 
mine into my expansion interface and to 
my printer, set the hardware CR/LF 
switch to on, and started using it. 

I’m very pleased with its performance. 
If you decide to get one of these, I’d 
suggest that you get the unit with a full 
62K RAM. I found out quickly that 16K is 
only enough for about half the printing I 
use it for. (Remember that a program 16K 
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MICRO PRINTER BASKET 




• Use with any table 

• Quiets printer 

• Special power cord and signal cable retainer to 
keep paper path clear 

• Sturdy steel construction 

• Durable epoxy finish 

• Beige color blends with equipment 

• 12” for 80 column printers $22.50 

• 18” for 132 column printers $24.50 

(this size can also be used with 80 column 
printers) 

Add $3.00 shipping and handling 



SEE, INC. 

P.O. Box 40215 
Indianapolis, IN 46240 
317-844-8817 

Dealer Inquiries Welcome 




ALLOWS UNLIMITED 
COPIES OF MOST 
RADIO SHACK 
PROGRAMS 
INCLUDING 
SCRIPSIT AND 
VISICALC 



Comes on a disk 

No Programming 

Experience 

Necessary 



ONLY 
$15.00^ 



£ 

<j 



In 

Kansas 

316 

665-3611 



fATA.INC. 

526 E. 4th 



HUTCHINSON, KANSAS 67501 



CON VERT- A- DISK 

Single-sided disk drive users 

increase your disk storage by 
100 %!!! 

Convert-A-Disk will work with 
any 5V4-in. single-sided disk drive 
no matter what type of computer 
you are using. 

Why pay hundreds of dollars to 
increase your disk storage?? 
Convert-A-Disk will allow you to 
convert all your existing disks to 
give you a 100% increase disk 
storage capacity. 

Send $15 check or money order 
to: 

CONVERT-A-DISK 

P.O. Box 15277 
Portland, OR 97214 



MICROMETRICS 



GOLD, SILVER, STOCKS & ECONOMIC 
DATA SERIES for TRS-80 



MONTHLY 


DATES 


LIST 


CASS/ 

DISC 


Dow Jones Avg’s. 


1897-1983 


$35 


$75 


U.S. Silver Prices 


1922-1983 


$30 


$39 


QUARTERLY 


GNP Series 


1947-1983 


$25 


$39 


Nat’l. Income Acts. 


1947-1983 


$25 


$39 


Econ. Indicators 


1948-1983 


$25 


$39 


YEARLY 


London Gold Prices 


1344-1982 


$35 


$49 


London Silver Prices 1833-1982 


$25 


$39 



(304) 748-0245 

MICROMETRICS 

P.O. Box 2505 • Weirton, WV 26062 



MODEL II/III/4 

CUSTODIAN 

A custodial inventory system. Ideal 
for insurance/property accountability 
uses. 

BUDGET MONITOR 

Tracks budgets and expenses by 
user-defined categories. For home, 
or project applications. 

DEMOPAK 

A smorgasboard of over 30 programs 
for personal/leisure use including 
games, personal finance, and math/ 
stat. 

MODEL IIl/4-$25 MODEL H-$40 

SEND CHECK OR MONEY ORDER TO: 

SOUTHFORK SOFTWARE, INC. 
68 Eairlake Drive 
Hattiesburg, MS 39401 

Specify TRSDOS Version with Order 
WRITE FOR CA TALOG 




Radio Shack® 

TRS -80 DMP-21 00 

Replacement 
Ribbon 



Manufactured by Aspen Ribbons, Inc. 
Buy direct from manufacturer & save. 
Standard ink color is black. Red, green, 
blue, brown, & purple colors are 
available for $2.00 extra per ribbon. 

PRICES 

Radio Shack® $4.00 to $1 2.00 ea. 

TRS-80 DM P-21 00 

Price depends on quantity ordered. 

CALL FOR FREE CATALOGUE 

‘Aspen Ribbons. Inc is not affiliated with any 
company mentioned in this ad 



Aspen Ribbons, Inc. 1700 n. 55th st. 

Boulder, CO 80301-2796 (303)444-4054 
Telex: 45-0055 End User: 800-525-0646 
Wholesale: 800-525-9966 



GRAPHICS 



Delta Graphics Basic 

Programme to expand graphics capability of 
TRS-80 Model I & III (Min: 16K level 2, cassette). 

• Fast, powerful, easy to use. 

• For beginner and expert programmer. 

• Design games and graphics displays in a flash. 

• Written in compact Z-80 machine language. 

ONLY 

$20 $25 

IN ONTARIO ADO 7V. P.S.T. 

Shipping included — send cheque or money order to: 

DELTA MICRO 

P.O. Box 253. Dept-B, 

Agincourt Stn., Agincourt, 

. Ontario. Canada 
> M1S3B6 







For more information, please circle the 
number below on reader service card. 
'TRS-flO - T.M. Tandy Corp. 




MAGIC 



y utuzawaze 

MOD I, III, IV 
UTILITY PROGRAMS 



• NEW! FORCE-4 Run your MOD 
IV in MOD III mode at 4 mhz (twice the 
Normal Speed) 

• Special Introductory Offer 
Only SI 9.95 on Disk 

• NEW! ALLDOS Get a directory of 
any operating system including 
single density from TRDSOS* 1 .3 or 
6.0. Available for the Model III or IV. 



VISA 



ONLY S24.95 on Disk 
or 

1 FORCE-4 & ALLDOS 
■j Both for S39. 95 



Call for complete listing 

(603) 889-5858 



‘Jutuzawaze 

1 Cannon Drive 
Nashua. NH 03062 
'registered trademark of 
Tandy Corp. 
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Reviews 



in length in memory is stored using 
tokens. When LLISTing that 16K 
program, the tokens are expanded into 
full words, easily doubling the program’s 
length.) 

Terry Kepner 



68000 MBASIC Interpreter 

Model 16 

$299.00 

Catalog #26-6457 

Available at Radio Shack Computer 
Centers 

I have some good news for Model 16 (or 
upgraded Model 11/12) users. Your ship 
has finally arrived. I do mean a ship, not 
a boat, or a canoe. Actually, it is more 
like a nuclear aircraft carrier. This thing 
has big guns, and lots of them. No more 
making excuses when people ask you, 
“Show me what your big and powerful 
Radio Shack 68000 based computer can 
do!”, when about the best demonstration 
you could show them was “Big Ben” or 
enter the library command SIZE and 
say, “See all that extra memory? Over 
200K!”. 

Of course they weren’t that impressed 
and neither were you. After they left, you 
probably proceeded to replace that 
intermediate excuse for a 68000 
operating system with TRSDOS 2.0b, 
load Scripsit or Profile, then proceed to 
drop back into eight-bit land. In reality 
you had no more real power at your 
disposal than a three year old Model II. 
What I really wanted was a 68000 BASIC 
interpreter, but all I could do was wait 
and see. TRS-XENIX and the MBASIC 
interpreter have finally been released 
and I think it was worth the wait. There 
is a lot to XENIX and MBASIC and it 
would take a few weeks to really dig in 
and give a full blown report on both. So in 
order to get at least some of the good 
news out to you quickly, I’ll keep this 
preliminary report focused on MBASIC. 

Let’s compare the new 68000 MBASIC 
interpreter to the standard Radio Shack 
eight-bit BASIC, but be prepared for 
some tradition-breaking and features 
you would never have expected from a 
Radio Shack computer two years ago; at 
least, I wouldn’t have. For starters, 
MBASIC allows string variables to hold 
up to 32767 bytes as opposed to the old 
255 byte maximum. Talk about having 
something to put MID$ and INSTR to 
work on. To see just how powerful this 
really is, look at this MBASIC statement: 
A$=LEFT$( THIS REVIEWS, (LEN 
(THIS REVIEWS) ) : PRINT A$ 

The answer would print this complete 
article you’re reading, with enough room 
left over in A$ to hold at least 20 more 
articles this size. Think about that for a 
second. In the old eight-bit Model II 
mode, with BASIC loaded along with a 
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small size program, you wouldn’t even 
have room to fit one fully-loaded 
MBASIC string variable into memory. 
There is something that MBASIC 
doesn’t have that we won’t miss. It 
doesn’t have the usual Microsoft string 
garbage collection problem. Good 
riddance. 

Want readable programs that make 
sense? MBASIC allows you to use up to 
40 characters for your variable names, 
all significant, instead of the old 
interpreter maximum of two. You’re no 
longer restricted to variable names like 
RE#. You can now have STORE. NUM- 
BER.ONE# and STORE. NUMBER. 
TWO# as separate and distinct variable 
names. Notice that a period can be used 
as a separator for readability. An 
underscore is also allowed. Instead of 
numeric variables defaulting to single 
precision, MBASIC numeric variables 
default to double precision. And 
MBASIC has real decimal math 
precision (six places for single precision, 
14 for double) without the old rounding 
problems. It uses true BCD (Binary 
Coded Decimal) math. 

MBASIC allows 17 open disk files at 
one time using buffer numbers from 1 to 
255 as opposed to the previous 15-file 
buffer maximum. With the Z80 BASIC 
you were allowed to open files using 
blocked record lengths from one to 255. 
With MBASIC your records can now be 
blocked anywhere from one byte to 32767 
bytes in length. Imagine reading into 
memory 32767 bytes of information 
using just one GET statement like 
"OPEN"D", 95, "DATA", 32767 : GET 
95,1. The MBASIC manual states that 
you are still only allowed to access 
random file records with numbers up to 
32767 (GET 1,32767) like Model II 
BASIC, but the manual might be in error. 
I’ve had reported to me a record number 
access of 200,000 with the limit probably 
being around 224K. You would have to 
have a bank of hard disks to store all the 
information this system is capable of 
working with, and a lot of memory cards 
to hold it once you read it into the 
computer. 

The MBASIC COMMON statement 
used along with CHAIN allows you to 
pass variables from one program to 
another.CHAIN also permits overlaying 
program modules by merging new 
segments and deleting a range of lines 
from the current program module. I have 
used a similar feature in other systems 
and am delighted that it’s in MBASIC. 
CALL replaces DEFUSR and USR for 
accessing machine language routines. 

RESTORE now allows you to restore 
your DATA starting at the line number 
of your choice. PEEK and POKE are now 
available without having to make 
patches. I never understood why PEEK 



and POKE were left out of Tandy’s top- 
of-the-line computers when even the 
Color Computer had them. And look at 
this. We now have true WHILE WEND 
do-until loop control. 

The SYSTEM command no longer 
permits SYSTEM “DOS Command” like 
TRSDOS. It just returns you to XENIX. 
But you’re not missing anything. The 
new SHELL command allows you to 
execute a DOS command and return 
back to MBASIC after the command has 
finished. But it gets better. Another 
SHELL option allows you to 
immediately return back to MBASIC to 
continue your program while the DOS 
command is being executed, making the 
DOS command a true background task. 

Among some other nice features, a 
backslash allows you to split one line 
into several physical lines for a nicer-to- 
read listing. INPUT$ has a new option 
which allows you to get characters from 
a sequential file, which could be nice for 
predefined data entry on the order of a 
DO or JCL file from within your BASIC 
program. LIST now allows you to list 
part of your program to a file like LIST 
500-800, “FILENAME”. Devices can 
now be opened and written as files like 
LDOS and DOSPLUS allow. OPEN"0", 
"SCRN:" would route data to the video 
screen. Of course MBASIC has all the 
features of the regular Z80 Model 
11/12/16 BASIC, except MBASIC is 
generally on the order of a magnitude 
more powerful and flexible because of the 
68000 CPU’s enormous memory- 
addressing range. One feature I wish 
MBASIC had was the ability to CALL 
BASIC program subroutines by name, 
with the local variable feature. 
(CALL"SUM";A,B,C) I really got spoiled 
with this feature from using the 
RSBASIC compiler. MBASIC is so 
powerful that it’s hard to complain, but I 
was disappointed that this useful feature 
was left out. 

I’m excited about MBASIC. It does 
have big guns, but be prepared to spend 
almost as much as our defense budget if 
you want to get all the equipment 
necessary that will allow XENIX and 
MBASIC to operate in the most efficient 
manner. The Radio Shack computer 
catalog states that XENIX-MBASIC can 
be used with only 256K of RAM, but more 
RAM will give you better performance. 
In actual use, I found the MBASIC-256K 
combination gave me frequent system 
delays that were annoying. From 
information I gathered, the delay 
problems can be relieved by adding more 
RAM. For best performance at least 512K 
was recommended to me. I personally 
haven’t tried MBASIC with 512K or 
756K RAM but I’ve been told to expect a 
dramatic speed increase from what I 
experienced with a 256K system. The 
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TRS-80 
MODEL I 



DISK 

INTERFACING 

GUIDE 

$ 5.95 

POSTPAID 
FIRST CLASS 
(United States On/yJ 

$7.95 Foreign Airmail 
(U.S. Funds) 

Send to: 

80-N.W. Books 
3838 South Warner St. 
Tacoma, WA 98409 
(206) 475-2219 

Dealer Inquiries Invited 

TRS80 is a registered trademark of Tandy Corporation 



Send Copies of the Guide 

Check Enclosed 

Visa or MasterCard 

# 

Exp. Date 

Signature 

Name 

Address 

City 

State Zip 

A Division of 80-Northwest Publishing, Inc. 

®0-)RIW 

Books 

V_ -J 



more RAM the better. 

Radio Shack is said to be planning to 

release a single-user floppy disk version 
of XENIX and MBASIC. We’ll have to 
wait and see how well it works. I hope the 
floppy version can be made to work 
efficiently because I don’t really want to 
buy a fixed hard disk until a more flexible 
technology becomes available. The 
current Radio Shack 12 Megabyte hard 
drive system works just great but I’m 
waiting for someone to release a Model 
16/12 compatible, removable cartridge 
disk system before I join the hard disk 
user fold. The removable cartridge 
makes so much more sense to me. It 
allows easy backups, different DOS and 
program options, and as much storage as 
you have cartridges to slip in the drive. 
Want to run a program that will run 
under TRSDOS 4.2 only? Just insert the 
4.2 cartridge. Want XENIX and 
MBASIC for another application? Just 
insert the XENIX cartridge. It’s too 
useful of an idea not to become popular. I 
can only imagine what people like Bob 
Snapp, of Snappware, Inc., will come up 
with as extensions to MBASIC. I’ll sure 
be watching, because I know it will be 
good. There is a whole new world of 
possibilities here. 

My thanks to Bob Snapp, Ray Pelzer 
and the Daytona Beach Radio Shack 
Computer Center for making available 
information and the system that was 
helpful to me in this review. 

Pete Carr 



Number Cruncher 
Models I/II/III 
Dr. Jerry Hintze 
865 East 400 North 
Kaysville, UT 84037 
(801) 546-0445 
$195 plus $3 s/h 

Number Cruncher is a set of 17 multi- 
function menu-driven statistical 
analysis program operating from a 
single data set. It is an enormous 
package, requiring a minimum of two 
disk drives for operation. The programs, 
written in BASIC, fill nearly an entire 
disk. We tested the package on a 48K 
Model III. 

The Number Cruncher package offers 
impressive value, probably the best on 
the market today. It includes forecasting 
and time series analysis (single expo- 
nential smoothing, least squares, linear 
trend, multiplicative trend and seasonal 
smoothing, and additive trend and 
seasonal smoothing); various univariate 
statistics; simple correlation analysis; 
multiple regression; step-wise 
regression; one, two, three, or four-way 
analysis; t-tests; eight nonparametric 
statistics (including sign test, Wald- 
Wolfowitz runs test for sequence 
randomness, and Friednam’s block/ 



treatment test); cross tabulation and 

contingency table analysis; and a 

statistical function probability 
calculator. 

In general, documentation is straight- 
forward and complete, and the menus 
and prompts within the programs make 
reference to the documentation almost 
unnecessary. The one exception we 
found in the version we tested was in the 
cross-tabulation program. The docu- 
mentation for generating a two-way 
table from raw data did not indicate that 
all figures are rounded to the nearest 
integer and that integer values must be 
positive. Many data sets must, therefore, 
be recoded, collapsing ranges of data into 
integer categories. A zero category is 
unusable for the zero is reserved for use 
in totalling the data. 

Hintze makes extraordinarily efficient 
use of disk drives and computer memory. 
Data are recorded on the data disk after 
inputting is complete for each observa- 
tion. As a result, a 48K Model III using 
the multiple or step-wise regression 
programs can handle an impressive 29 
independent variables per observation. 
The number of observations is limited 
only by disk storage capability. 
Processing time is relatively short. Runs 
of eight variables and 67 observations 
are completed in a little over five 
minutes. 

In comparison, Dynacomp, Inc.’s 
memory-hungry multiple-regression 
program takes approximately as much 
time to run five variables on 40 
observations. The Dynacomp package 
cannot provide error estimates for as few 
as four independent variables and 50 
observations. In fairness to Dynacomp, 
it should be added that its multiple- 
regression package contains nonlinear 
features lacking in Number Cruncher. 

Radio Shack’s Advanced Statistical 
Package (ASP) includes a multiple- 
regression program that handles more 
than 200 observations but only five 
independent variables. However, Radio 
Shack’s package runs faster. 

Each program contains every statistic 
that one normally requires. For example, 
the multiple-regression* program 
presents regression coefficients, last sum 
of squares, F-test, R-squared, and anova. 
ASP produces roughly the same 
statistics, but Dynacomp’s multilinear 
regression program is not nearly as 
complete. 

All Number Cruncher programs 
analyze data from the same single data 
set. Those who have used ASP or 
Dynacomp will particularly appreciate 
this feature. For example, ASP requires 
new data entry from the keyboard for 
four categories of programs. 
Furthermore, data editing is easier and 
more convenient with Number Cruncher 
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(as it is in Dynacomp’s various 
programs). Mistakes can be corrected or 
new data added simply by entering the 
editing mode and specifying the row and 
column where changes are to be made. 

In the ASP data files, correction of one 
item for an observation requires that all 
data in the observation be reentered. 
And, in some data input formats, all the 
data must be reentered in order to correct 
an error. Each Number Cruncher data 
file is identified by up to a six-character 
name, and a convenient 64-character 
label may be appended. 

Number Cruncher permits a variety of 
extremely useful data file manipulations 
including: the merger of selected 
columns from two files; data columns 
may be added to, subtracted from, 
multiplied by, or divided by a constant; 
addition, division, subtraction, or 
multiplication of two columns; 
trigonometric and logarithmic 
transformations; and recoding through 
the use of up to ten IF . . . THEN state- 
ments per transformation run. None of 
these features are available in the ASP, 
and they are a separate purchase from 
Dynacomp. 

Most Number Cruncher data displays 
include printer output options as part of 
the program, but for some, one is obliged 
to use the CMD “Z” function. For the 
scattergram which is part of the main 
data set program this does not work (the 
X and Y axes are printed along a single 
line), but this particular scattergram is 
present only for quick visual checks of a 
data set. A separate scattergram 
program does output to the printer very 
conveniently. 

Number Cruncher costs far more than 
Radio Shack’s ASP, but it offers much 
greater flexibility and power by virtually 
any standard. ASP’s only advantage is 
that it comes in cassette form (which can 
be transferred to disk) for those lacking 
disk drives. Separate Dynacomp 
packages (also available on cassette) 
which might approach, but not equal, 
Number Cruncher are of comparable cost 
if a similar set of packages is purchased. 

Versions of Number Cruncher are also 
available for the IBM Personal 
Computer ($395), in CP/M 2.2 ($395), and 
for the Commodore 64 and VIC-20 ($50 
on cassette). The Commodore packages 
do not contain all the features described 
above. 

Carl Grafton and Anne Permaloff, 
Auburn University at Montgomery 

Dynacomp , Inc., 1427 Monroe Aue., 
Rochester, NY 14618, multiple regression 
disks I, II and III $69.95 on CP/M disk, 
$63.95 on 5 l / A -inch disk or $51.95 on 
cassette. The Radio Shack Advanced 
Statistical Package (ASP) is available 
from Radio Shack dealers for Models 
7/7/7 $39.95 on cassette or disk. 
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Thrill Your Friends 
This Christmas 

with a gift 
from 

bitCards 

PERSONALIZED 
SOFTWARE 

Only $1 8,50 

Christmas draws near. Santa has disappeared from his ice- 
castle. The player can solve the mystery using the available clues. 
Along the way he’ll discover that this is no ordinary adventure 
game: In a storage room, he’ll find a shimmering package 
addressed to him. And in Santa’s coat pocket, a scrap of a note 
signed by you! Santa’s computer will call upon him by name to 
help solve the mystery. 

And that’s just the start of it. We’ve designed “A Christmas 
Adventure” to be fun. Graphics, humor, action sequences and 
many other features and surprises to charm seasoned adventurer 
and novice alike. We’ll even include your own personal greeting 
message— right in the program! 

A bitCard is the perfect gift for everyone on your list who has 
access to a micro. They’ll love being part of their own adventure. 
And they’ll love you for stuffing their stocking with this Christmas 
delight. 

BitCards. A personalized greeting card. A customized gift. 
Now isn’t that a better idea than a polka-dot tie? 

16K cassette versions for TRS-80® Models I, III & Color Comp., Atari® 400/800 and Commodore-64 T “ 
Disk version available for 48K Apple™ll (all models and compatibles). 

Cassette versions available for 5K Vic-20™ and for Vic-20™ with 8K expander 

P.S. Why not order one for yourself too. You’ll love the adventure. 



TO ORDER A CUSTOMIZED BITCARD: 

BY PHONE: (Visa or M/C accepted) call 1-800-555-1212 and ask for the TOLL 
FREE NUMBER FOR BITCARDS. 

BY MAIL: (money order or MasterCard/Visa number & exp. date) use seperate 
sheet for each bitCard ordered. Give your name and address and following info 
about recipient; (1) name (2) address (3) computer (e.g., TRS 80® Model I) (4) 
(optional) his/her phone number. Also include your personal message to 
recipient (25 word max.) (We'll supply standard message if you prefer). Indicate if 
you want bitCard sent to you or directly to recipient. Order should arrive before 
Dec. 12. Send order or requests for info to: bitCards, 120 S. University Dr., Suite 
F-6, Plantation, FL 33317. Canadian orders welcome. 

DEALER INQUIRIES INVITED 

Dealers only: Write to Chartscan Data. Inc., It 30 Lajoie, Suite 5. Montreal, Canada H2V 1N8 (514) 274-1103 

Apple is a trademark of Apple Computing, Inc. Vic-20 and Commodore-64 are trademarks of Commodore 
Business Machines, Inc. Atari is a registered trademark of Atari, Inc. TRS-80 is a registered trademark of 
Tandy Corp. 
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R.I.S.T. Inc. ANNOUNCES 

SPEECH 

SYNTHESIZER 

SALE 




ACT 
NOW/ 

Receive 

Ptirase Finder Program "$5 VALUE FREE 
Speech Synthesis Manual '$10. VALUE FREE 

ORDER NOW 



Apple II, 11+ 

TRS80 Models I, III 
Commodore 64, VIC 20 
ZX80/81 and TS1000 
Regularly $89.95 
Now Only $59.95 +4 00sh/hd 
Complete or Starter Kits Available 



* * * 10 Day Money-Back Guarantee * * * 

Send check or M O . COD add $1 .50 to: R.I.S.T. Inc 
Dept GZ1 , P.O. Box 499 Ft. Hamilton Station 
Brooklyn. NY 11209 212-259-4934. 

N.Y.S. RESIDENTS ADD 8 %% TAX. 



. . .FAST. 




From Basic 



Announcing — 

Assembly Language Business 
Programs For Model III 

If you bought your computer with the anticipation 
of doing your business quickly, why wait for the 
Basic programs to do your work? All you need to 
wait is 1 or 2 seconds for your data, when the 
programs are written in Assembly Language. 

We have: 

General Ledger $99.95 

Accounts Payable $74.95 

Accounts Receivable $74.95 

Check Writer $39.95 

Church Giving $49.95 

Church Directory $39.95 

Mailing List/Labels $39.95 

Inventory Control $74.95 

For more information contact: 



'EM M 



5 Sussex Ave. 
Cherry Hill, N.J. 
08003 






For More 
Info. Call 

(609) 795-9467 



Income Property 
Management Program 
for TRS-80 1 1 1/4 

Menu-Driven 

Professionally Documented 
Resident Report 
Income, Late, Vacancy Reports 
Prints Receipts 
Expense Management 
Check Writer 
Payee Management 
Financial Report 

Flandles up to 100 units per complex 

$360.00 
Citation Systems 

683 Cumberland Rd. N.E. 
Atlanta. GA 30306 
(404) 881-6328 



FREE 




We’ll give you this $1 75 
software package for 


business software 




$21.95 


directory 




2 Games! 7 Personals! Mod l/lll 


• Radio Shack’s Model 1, 2, 3 




OSCAR DRAFT, SPECIAL 
MISSION PILOT 


& 16 




Exciting flight program. Full instrument 


• CPM: Xerox, Alto . . . 




panel. Real navigation, bombing, 
strafing, dogfights. Great graphics. 32K 


• IBM PC & compatibles 




THE WIZARD’S CITY. Adventure 


Data base manager, integrated 




PERSONAL PROGRAMS 


accounting package, inventory. 




Income Tax— Financial Statement- 


word processing, and advanced 




Mail List— Bus. Mileage —Tax File 


mailing list. 




Income/Expense— Stock Charting. 




DISK ONLY. IF YOU USE TAPE, ORDER 


Micro Architect Inc. 




DISK AND HAVE IT COPIED. AT 
$2.44/PR0GRAM, HOW CAN YOU LOSE? 


6 Great Pine Ave. 




Add $1.50 shipping. 


Burlington, MA 01803 




D A Dlt* 601 1 SAN FELIPE 

DAr5 HOUSTON. TX 77057 


' T 671-273-5658 





MODEL 4 OWNERS 

CONVERT your MODEL l/lll 

PROGRAMS TO RUN ON MODEL 4 



Do you have a lot of time and money invested 
in Model l/lll software, well now you can 
convert Model l/lll BASIC programs to Model 4 
with CONVERTR. 



CONVERTR will eliminate unnecessary spaces 
and insert all required spaces in your BASIC 
programs. CONVERTR will identify lines 
which contain keywords not supported by 
Model 4. CONVERTR will identify lines and 
keywords which the Model 4 handles differently. 
CONVERTR is menu driven and includes an 
option to list your program and error table on 
your printer. 



CONVERTR comes on a disk and includes an 
instruction booklet on How to Convert your 
BASIC programs. 



CHECK - MON EY ORDER 

cod - 32 

CONVERTR 

1 DRIVE SYSTEM • 89.00 

2 DRIVE SYSTEM • 79.00 



ADEL COMPUTER MART 
DEPT 50 BOX 195 
HARTLY, DE 19953 
PHONE 5 pm-9 pm M - F 
9-5 Sat (302)492-8463 




Seduction... 
mote than a 



TRS-80 H/M 
48K tPisk 



adidt tidee ffa/nes 
7325 X Reseda M i 
Suite 637. Reseda, < 

9/535 
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BPiPiCLPiV IDHYTE 
PiSSGClFiTES 



LUDRDPFOCl-lil 
UEFiSDTI 3-D 







j ^ -<o 

A o 

Sasic plus machin. languag. Word Processor O, 

TRS-80* Model l/lll 48K Disc 

Now you can wnbod 
control codes in your text for 



Underline 

“ V 



Superscript Sub5{r!pf 
Italics More 

514*95 each, with disc w ^ 

510*95 each, documentation only f ° 

EPfiCLW UiHYTE fiSSOOfTTES 

P.O. Box 948, 

New Westminster 
B.C. Canada. V3L 5C3. 

Add 51*00 for postage 
B.C. Residents add tax at 6* 

’Trade mark of Tandy Corporation 
* ’Trade mark of Epson America 



EPSON* OWNERS 

We get letters on a regular basis 
from customers saying how much 
they enjoy receiving our lists. 

It's probably safe to say that our lists 
are different from most of the others in 
that they are as entertaining as they 
are informative. 

The lists are "slanted" toward the 
EPSON Printer user but should be of 
interest to the owner of most any 
microcomputer printer. 

Send us your name and address 
and we'll send you a rather fat 
envelope filled with computer 
oriented offers. 

ZYGOTRON 

P.O. Box 27 

Fremont, Michigan 49412 

Lists sent to USA addresses and by mail only. ’EPSON 
trademark of Epson. Amerrn Inc. 
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Personalized Software Gift 

Chartscan Data, Inc. has released 
a series of software packages called 
“bitCards.” Designed as text-and- 
graphic adventures whose themes 
relate to a specific holiday or event, 
the unique feature of the bitCard is 
that it can be ordered custom- 
programmed with several personal 
references. The first bitCard, “A 
Christmas Adventure,” will be 
available in early October for 
Christmas gift-giving. It will be 
programmed to deliver a personal 
holiday greeting to the recipient in 
whatever words the sender wishes. 
$16.95, all versions. Available for 
TRS-80 Models I/III and Color 
Computer. Orders and information: 
bitCards, 120 South University 
Drive, Suite F, Plantation, FL 33317, 
(305) 473-4741. 



Model 100 Bar Code Reader 

Bi-Tech Enterprises, Inc. has 
announced the availability of bar 
code readers for the TRS-80 Model 
100 and the Epson HX-20 portable 
computers. The bar code reader 
allows users to read industry 
standard “3 of 9” code and store the 
results in their computer’s memory, 
features a push-to-read switch and a 
scanner rate of up to 76 cm/sec. It 
will read lines as small as 0.3 mm. 
The unit is totally self-contained 
and requires no additional 
hardware or software to operate. 
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Each unit comes complete with 
software and reader. It is available 
at $279.95 by contacting Thomas 
Vande-Stouwe, (516) 567-8155. 



Computer Periodical for 
Physicians 

A new medical newsletter, 
Physician Computer Monthly , 
provides information to the growing 
number of doctors who use micro- 
and minicomputers in their 
practices. This 12-page, independent 
periodical covers computer appli- 



cations for practice management, 
patient care, continuing medical 
education, and communications. 
Written in non-technical language, 
Physician Computer Monthly 
emphasizes practical uses of 
computers by physicians. 

One-year subscription is $95. A 
sample issue will be provided free to 
physicians upon receipt of 
letterhead request; non-physician 
samples $2 each. Write Physician 
Computer Monthly , 67 Peachtree 
Park Dr., Atlanta, GA 30309. 
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Algorithms Chart 

The “Basic Algorithms’* Micro 
Chart® from Micro Logic is two- 
sided, 8 y 2 x 11 -inches, made of credit- 
card-type plastic, and has useful 
algorithms written in BASIC, 
including four ways to sort. Each 
algorithm is accompanied by its 
function, advantages, speed, and 



method. The program “cores” are 
designed for easy translation to 
other languages, including 
assembly language. A 3x5 dot 
matrix character set is also included 
in both visual and encoded form. 
The cards are $5.95 each plus $1 
postage from Micro Logic Corp., 
P.O. Box 174, 100 Second St., 
Hackensack, NJ 07602, (201) 342- 



6518. 



WordStar for TRS-80 and 
MAX-80 

Logical Systems, Inc. has released 
WordStar on Smal-LDOS for the 
TRS-80 computers, without CP/M or 
hardware modifications. All 
WordStar features (except 
background printing) are available. 
In addition, MicroPro’s MailMerge 
can be added to produce a text- 
processing system. Document size is 
limited only by available disk space, 
text formatting and justification are 
shown on the screen, and there are 
adjustable levels of on-screen help. 

WordStar is for the following 
computers: Radio Shack TRS-80 
Models I/III/4 (in the Model III 
mode); Lobo Systems MAX-80 
(MAX-80 LDOS required). At least 
two double-density disk drives are 
required. WordStar introductory 
price is $249 plus $5 s/h. MailMerge 
introductory price is $149 plus $4 
s/h. Introductory prices will be in 
effect until December 31, 1983. For 



Algorithms chart 




Back Issues 

May/Jun 1979 

String packing techniques 
Determine functions of the brain 
How to win Nim-type games 

Jul/Aug 1979 

Create fast graphics 
Renew lost programs 
No-hardware lowercase mod. 

Nov/Dec 1979 

Function grapher/root finder 
Home heat loss program 
Restoring killed disk files 

May/Jun 1980 

Telecommunications with the 
TRS-80 

BASIC game program technique 
Produce sound with BASIC 
programs 

Nov/Dec 1980 

Simple payroll program 
Digital plotter interface 
Produce keyboard typeahead 

May/Jun 1981 

Line packing techniques 
How to use "PRINT USING" 

Animation and the TRS-80 

Jul/Aug 1981 

Descending lower case for Model I 
Student timetable program 



Easy tape loading for Model I 

Sep/Oct 1981 

Keyword search database 
program 

Compute a retail installment 
contract 

The vertical mill: a 3-D plotter? 

Nov/Dec 1981 

Comparison shopper program 
Real time clock construction 
Pocket Computer biorhythms 
program 

Jan 1982 

Microcomputers in business 

Feb 1982 

Micros and word processing 

Apr 1982 

Microcomputers and investments 

May 1982 

Space: An infinite frontier 

Jun 1982 

Games issue 

Jul 1982 

The TRS-80 in law offices 

Aug 1982 

Microcomputers in education 

Sep 1982 

Graphing and graphics 



Oct 1982 

Microcomputing tips and tricks 

Nov 1982 

Telecommunicate with your computer 

Dec 1982 

Disks and DOSs 

Feb 1983 

Computer languages: Reports on 
Pascal, COBOL, Pilot and Forth 

Mar 1983 

Data base management 

Apr 1983 

Computers in government 

May 1983 

Special peripherals issue 

Jul 1983 

Making music with your computer 

Aug 1983 

Print-oriented programs 

Sep 1983 

Video graphics routines 



Cost is $4 for each back issue 
ordered. Use the reply card, or you 
may write/phone Basic Computing, 
3838 South Warner St., Tacoma, WA 
98409-4698, (206) 475-2219. 
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additional information, catalog, or 
ordering, contact Logical Systems, 
Inc., 8970 N. 55th St., P.O. Box 
23956, Milwaukee, WI 53223, (414) 
355-5454. 



CP/M for Model 4 

Montezuma Micro announced 
implementation of Digital 
Research’s CP/M 2.2 operating 
system for the Model 4 computer. 
Included is an “Interchange” utility 
that is said to read, write or copy 
over 20 popular diskette formats 
including IBM, Kaypro, Osborne, 
and Xerox. The system functions 
completely in either a 64K or 128K 
Model 4. Configuration for 35-, 40-, 
77- and 80-track single- or double- 
sided drives, and a format utility 
that will build over 52 different 
diskette formats is built-in. The 
operating system comes complete 
with all utilities and 300-page user 
manual for $199.95. Montezuma 
Micro, Redbird Airport Hangar #8, 
Dallas, Texas 75232, (800) 527-0347, 
or in Texas (800) 442-1310. 



64-column Model I/III 
Emulator for Color Computer 

Spectrum Projects introduces a 64- 
column Model I/III emulator 
program which allows the Model 
I/III SET, RESET, POINT, 
PRINT@, CHR$ and CLS 
commands to work the same on a 
Color Computer as on a Model I/III. 
The program does not add the 
DEFDBL, DEFSNG, DEFINT, or 
fix the other differences in the 
languages. This routine merely 
allows a person to type or load a 
Model I/III BASIC program on the 
Color and not have to change the 
graphics statements. The emulator 
requires 64K and costs $19.95 (tape 
or disk) plus $3 shipping. From 
Spectrum Projects, 93-15 86th Drive, 
Woodhaven, NY 11421, (212) 441- 
2807. 



Model 100 Color Graphics 

High-resolution color graphics for 
charts, games, etc., full-sized color 
text can be displayed on any size 
color monitor or color TV with 
modulator. Four modes of operation 
are: Text (24 lines, 40 characters per 
line, 6x8 matrix, 256 user-definable 
characters), Multicolor (64x48 color 
graphics), Graphics 1 (256x192 color 
graphics, 24 lines, 32 characters, 8x8 
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matrix, 2 colors per character), and 
Graphics 2 (same as Graphics 1 
except 15 colors plus transparent per 
character). Sprites are active in all 
but text mode, 32 prioritized 3-D 
planes. Comes with sample 
programs and instructions. No 
hardware modifications are neces- 
sary (plugs into expansion socket) 
and on-board RAM uses no system 
memory space. Manual only $5, $235 
assembled and tested, or $195 for kit 
with instructions. Andreasen’s 
Electronics Research and Develop- 
ment, Inc., 1548 Monterey St., San 
Luis Obispo, CA 93401, (805) 541- 
6398. 



LISP for Models I/III/4 

This machine language system 
was designed to satisfy the needs of 
virtually any user, so it has features 
such as pixel graphics and floating 
point routines in addition to a full 
range of LISP functions. The 
manual contains an introduction to 
the fundamentals of LISP, in 
addition to sections detailing the use 
of the interpreter, the structurally- 
oriented editor, the differentiator 
and algebraic simplifier, and the 
poker player which comes with the 
system. Diskette and manual sell for 
$79.95 from Artificial Intelligence 
Technologies, 2121 NE 152nd, 
Redmond, WA 98052, (206) 644-3068. 



Mini-T-Switches™ 

A new Mini-T-Switch™ enables 
computer users to reduce the number 
of modems and printers required. 
This module consists of two T- 
switches in one. Each switch could 
enable two peripherals to share a 
common third component or a CPU 
I/O port. The Mini-T-Switch can 
function either as a desktop unit or 
in a 19-inch rack. No tools are 
required. Each module has an 
interlock for quick installation. The 
Inmac T-Switch™ is PC board- 
constructed instead of hardwired. 
Its rotary switch is rated at a 10,000- 
operation life expectancy. The 
device is available for a risk-free, 45- 
day trial period in versions 
compatible with either coaxial or 
EIA RS-232 connectors and is 
guaranteed for one year. Inmac, 
Department 127, 2465 Augustine 
Drive, Santa Clara, CA 95051, (800) 
547-5444, or (800) 547-5447 for 
California residents. 



Beginners Programming Book 

Howard W. Sams & Co., Inc. offers 
computerists of all ages an 
introduction to working with and 
programming TRS-80 computers. 
TRS-80® for Kids from 8 to 80 , 
Volume 1, by Michael P. Zabinski, is 
available for $9.95 at participating 
Sams dealers and bookstores 
nationwide. This is a self-paced 
guide for beginners, offering 
exposure to programming concepts, 
commands, logic, disk storage, 
printing and more. It’s easy to use 
with a generous number of 
illustrations. This book is suited for 
either individual or classroom use. 
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For further information, contact 
Howard W. Sams & Co., Inc. 4300 
West 62nd St., Indianapolis, IN 
46268, (317) 298-5400. 



Video Library Organizer 

Readers who want to organize 
their video libraries can do so 
quickly and easily with Prosoft’s 
new “Video Tape Tracker/' The 
program can store and manage over 
1,000 titles, and print quick- 
reference lists by tape number 
and/or movie title. It can search 
through the list by tape, title or 
performer, and print numbered, 
titled labels. Tape Tracker is 
available at the introductory price of 
$29.95. It runs on any TRS-80 Model 
I/III with two disks and 48K. Order 
from Prosoft, Box 560, North Holly- 



VisiCalc tutorial software 




Problem solver software 
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wood, CA 91603, (213) 764-3131. 



Business Graphics 

Sweet-Plot 80, a business graphics 
software package to be used with the 
Sweet-P Personal Plotter from Enter 
Computer, Inc., provides turnkey 
capabilities to users of CP/M-based 
single- and multi-user micro- 
computers. Together, the two 
products yield high-quality 
hardcopy graphics generated from 
spreadsheet (numbers only) 
programs and DIF files. Multi- 
colored graphics can be plotted on 
any type of paper or overhead 
transparency (from 8 y 2 xl 1 inches up 
to 10 feet long) with characters 
ranging in size from one-eighth inch 
to 20 inches in height. Sweet-P’s 
high-resolution plotting provides 
250 line segments per inch, drawn at 
the speed of 6 inches per second. The 
software package can be used with 
any CP/M operating system 
computer containing at least 64K. 
Sweet-Plot 80 retails for $350. The 
Sweet-P Personal Plotter retails for 
$795. Enter Computer, Inc., 6867 
Nancy Ridge Dr., San Diego, CA 
92121, (619) 450-0601. 



Lazy Writer for Model 4 
AlphaBit Communications, Inc. 
has a new version of their Lazy 
Writer word processing system. The 
Model 4 version makes use of the 
better screen display on the Model 4 
by displaying text in 80x24 
characters. Text created with this 
version is fully compatible with text 
created on the 64x16 character 
version used on the Models I/III. 
The Model 4 version is two sets of 
programs for use on any Model III 
DOS and for TRSDOS 6. Current 
Lazy Writer users can purchase the 
Model 4 programs for $39.95. The 
price to new buyers is $175. 
AlphaBit also produces a special 
version of Lazy Writer for the Lobo 
MAX-80, which also has the 80x24 
character display and works with 
the LDOS operating system. This 
version is $175 to new buyers or 
$39.95 as an upgrade to current 
users. AlphaBit Communications, 
Inc., 13349 Michigan Ave., 
Dearborn, MI 48126, or from dealers. 



VisiCalc Tutorial Software 
Little, Brown and Co., have 
entered the software field with the 



publication of VisiCalc® Program- 
ming: No Experience Necessary by 
Shaffer and Shaffer Applied 
Research and Development, Inc. 
The self-instructional disk-and- 
guide should allow new users to 
master the VisiCalc electronic 
spreadsheet quickly. A series of 
exercises provide hands-on 
experience from basics through 
advanced functions. Suggested 
price is $59.95 and versions are 
available for the IBM PC; Apple 
II/II + /IIe; Atari 800, Atari 
XL/XLD series, and TRS-80 Model 
III. Available at computer retail 
outlets or Little, Brown and 
Company, Order Dept., 200 West 
Street, Waltham, MA 02154, (800) 
343-9204, or (617) 890-0250 in 
Massachusetts. 



Free FORTH Reference Card 

The “FORTH Handy Reference 
Card" is available free from the 
FORTH Interest Group (FIG). 
Functioning as a pocket program- 
ming aid, the card lists and 
describes the major commands of 
the FORTH computer language. For 
further information and a free 
reference card, call the FIG Hot Line 
at (415) 962-8653, or write the 
FORTH Interest Group, P.O. Box 
1105, San Carlos, CA 94070. 



Problem Solver Software 

Brainstormer is a software tool for 
generating potential solutions to 
complex problems. It works by 
building a description of a problem 
in terms of the themes and 
variations which affect its solution. 
Brainstormer is available for TRS- 
80 Models I/III/4, and for CP/M 80- 
column monitor machines including 
Apple II, Osborne I, and Kay-Pro II. 
All systems require MBASIC, two 
drives (5 1 /, SS or SD only) and 48K. 
This package, with user’s guide and 
example files, sells for $50 if used on 
a single machine. Available from 
Soft Path Systems, c/o Cheshire 
House, 105 N. Adams, Eugene, 
Oregon 97402, (503) 342-3439. 



Edit-protect Model I 

Glenn/Cliff Associates offers a 
machine language program which 
makes listings impossible to read by 
masking them. Editing of masked 
lines produces “trash” (when 
“run”). It takes approximately one 
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second to mask or unmask 
programs. Performance is not 
affected and there is no increase in 
program length. Masque 1 
(X=USR1(0)) masks programs 
temporarily. Masque 2 (X=USR2(0)) 
unmasks programs masked with 
USR1. Masque 3 (X=USR3(0)) calls 
upon the permanent “Masque.” 
Requires Model I, 48K and disk 
drive. Shipped on formatted diskette 
and operates with all popular DOS 
systems. Masque 1 (USR1 and 
USR2) $24.95, Masque 2 (USR3) 
$29.95, Masque 3 (USR1, USR2 and 
USR3) $39.95. Contact Glenn/Cliff 
Associates, 8301 East Montebello, 
Scottsdale, Arizona 85253, (602) 941- 
0609. 



Custom Testing Package 

TestRite is a curriculum manage- 
ment software package which stores 
test items and generates customized 
tests. It is suitable for all levels from 
middle elementary through 
university and technical schools. It 
maintains curricula-referenced test 
item files. Every test question may 
be printed in any of four formats: 
multiple choice, true/false, 
matching or completion. Number- 
ing options, customized titles and 
user-edited test taking instructions 
give the program flexibility. Priced 
at $139, TestRite may be used on 
Apple 11+ or He with 48K RAM, 1 
disk (min.) and printer, or TRS-80 
Model III or 4 with 2 disk drives and 
printer required. Class 1 Systems, 
17909 Maple St., Lansing, IL 60438, 
(312) 474-4664. 



Pocket Computer PC-3 

The PC-3 is small enough to fit 
into a shirt pocket. It can be 
programmed to solve problems in 
BASIC, provides 16 arithmetic and 8 
string functions, features a 24- 
character liquid crystal display with 
accuracy up to 10 digits, and 1.4K 
memory. It can be used as a direct- 
key entry calculator. The PC-3 is 
compatible with Radio Shack’s 
existing library of software for the 
PC-1. The PC-3 (26-3590) is available 
for $99.95 at Radio Shack computer 
centers, stores and dealers, and 
comes complete with batteries and 
manual. The PC-3 Printer/Cassette 
Interface (26-3591), is available for 
$119.95. 



Refer to advertiser index for reader service number 




Business graphics 




November, 1983 107 





Advertiser index 



Reader Service # Page # 

1 ALPS 8 

2 Aardvark 7 

3 Access Unlimited 29 

4 Adel Computer Mart 83, 102 

5 Adult Video Games 102 

6 Adventure International 48, 49 

7 Ammicro 93 

8 Analytical Processes Corp. 62 

9 Andreasen Electronics 9 

10 Anitek Software 35 

11 Applied Microsystems 63 

12 Armstrong Genealogical Systems 19 

13 Artificial Intelligence Technology 90 

14 Ashton, Frank 80 

15 Aspen Ribbons, Inc 98 

16 B.T. Enterprises 28 

17 BAPS 102 

18 Barclay Whyte Associates 102 

□ Basic Computing 104 

19 bitCards (Chart Scan Data) 101 

20 Brylar Technology 50 

21 CDC 86 

22 CPR 60 

23 CRB Microtools 51 

24 Citation Systems 102 

25 CompuKit 44 

26 Compusoft Publishing 23 

27 Computer Friends 71 

28 Convert-A-Disk 98 

29 Crest Software 51 

□ DFW Computer Center 81 

30 Data Bank 43 

31 Delta Micro 98 



32 Discovery Games 109 

33 Disk 'n Data 96 

34 EAP Company 96 

35 Educational Media Associates 10 

□ 80-N.W. Publishing, Inc 100 

36 FGA Software 92 

37 Fink, William 79 

□ Ft. Worth Computer 18 

38 Futuraware 98 

39 Gelder, Alien Software 87 

40 Gibberman Enterprises 27 

□ H&E Computronics 41,110 

41 H.D.P 96 

42 High Desert Engineering 60 

43 Hoffman Associates 102 

44 Howe Software 70 

45 Institute for Scientific Analysis 13 

46 JSOFT 67 

47 K&L Software 108 

48 Lobo Systems 15 

49 Logical Systems, Inc Ill 

50 Lynn Computer Service 69, 89 

51 MCS Software 61 

52 MiSOSVS 21,30 

53 Marymac Industries 40 

54 Mayday Software 52 

55 Micro Architect, Inc 102 

56 Micro Control Systems, Inc 3 

57 Micro Images 85 

58 Micro Labs 46 

59 Micro Management Systems 47 

60 Micro Systems Software 2 

61 Micro-80 55 

62 Microcomputer Applications 96 



Reader Service # Page # 

□ Micrometries 98 

63 Microsette 11 

64 Midwest Comp-U-Tron 20 

65 Modular Software Associates 53 

66 NEBS 45 

67 NODVILL Software 98 

68 New Classic Software 36 

69 Nocona Electronics 14 

70 Omnisoft Research 61 

71 PAECO industries 83 

72 Pickles & Trout 25 

73 Pioneer Software 38 

74 Prosoft 50 

75 R.I.S.T., Inc 102 

76 REM Industries, Inc 96 

77 Radio Shack 56, 57, 112 

78 Ram Rom Corp 83 

79 SEE, Inc 98 

80 Sales Data, inc 96, 98 

81 Scientific Engineering Laboratories 96 

82 Sector Marketing 24 

83 Snappware 32, 33 

84 Software Factory, The 96 

85 Solutions, Inc 39 

86 Southern Ctr. for Research & Innov. ... 96 

87 Southfork Software, Inc 98 

88 Team Computer Products 59 

89 TriSoft 37 

90 United Software Associates 52 

□ Vespa Computers 65 

91 Wadsworth Electronic Publishing 31 

92 Zygotron 102 

□ Contact these advertisers directly, 



SCRNWRTR 



*29.95 



HOW MANY HOURS OF YOUR PROGRAMING TIME IS SPENT ON TRYING TO DESIGN VIDEO SCREENS? IF YOU ARE 
SPENDING TO MANY HOURS DESIGNING SCREENS FOR YOUR BASIC PROGRAMS THEN THIS IS THE UTILITY FOR YOU. 
SCRNWRTR USES A FULL FLOATING CURSOR THAT CAN BE POSITIONED ANYWHERE ON THE SCREEN USING THE 4 
ARROW KEYS. A NUMBER IS DISPLAYED AT THE BOTTOM OF THE SCREEN SHOWING THE EXACT LOCATION OF THE 
CURSOR FOR EASY REFERENCE. A UNIQUE FEATURE OF THIS PROGRAM IS THAT ALL 64 OF THE GRAPHIC 
CHARACTERS AS WELL AS ALL 64 OF THE SPECIAL CHARACTERS ON THE MODEL-III ARE AVAILABLE FROM THE 
KEYBOARD. ONCE A SCREEN HAS BEEN DESIGNED IT CAN BE SAVED FOR FUTURE USE IN YOUR BASIC PROGRAMS. 
MODEL III DISK SYSTEMS 



MAIL 



$39.95 



MAIL A BASIC MAILING LIST PROGRAM WITH ALL OF THE SPEED AND FEATURES OF THE MORE EXPENSIVE MACHINE 
LANGUAGE PROGRAMS. FEATURES INCLUDE FULL GLOBAL SEARCH AND EDIT ON ALL FIELDS. A FAST SORT 
ROUTINE ON ANY OR ALL FIELDS. PRINT 1,2,3 OR 4 LABELS ACROSS. STORE UP TO 2000 NAMES ON A 
SINGLE DATA DISK ON THE MODEL III. MODEL I/I I I 1 OR 2 DISK SYSTEM 



DBM Sub 



$99.95 



DBM Sub - IS A DISK OF MODEL I/I 1 1 BASIC ROUTINES THAT LET YOU CREATE A DATA-BASE MANAGEMENT 
SYSTEM CUSTOMIZED TO YOUR EXACT NEEDS. THE MAIN FEATURE IS THE ABILITY TO HAVE DATA BASES WITHIN 
DATA BASES. (A FEATURE NOT FOUND IN ANY OTHERS). THE DATA BASE SYSTEM THAT YOU WRITE MAY BE AS 
FAST AS SOME MACHINE LANGUAGE PROGRAMS ON THE MARKET. THE DBM DISK CONTAINS DISK, PRINTER, AND 
SCREEN I/O, Sc OTHER ROUTINES, AND WORKS WITH MOST DOS'S. MODEL I /III DISK 

$75.00 

CLIENTS. PRINTS 
2 DISKS 

$89.95 

Z BASIC IS A MACHINE LANGUAGE COMPILER FROM SIMUTEK COMPUTER PRODUCTS. THIS IS PROBABLY THE FASTEST 
COMPILER ON THE MARKET. MODELI/III DISK *89.95 - MODEL I/III TAPE *79.95 - DISK AND TAPE *99.95 



JCP 



JCP - JOB CONTROL PROGRAM FOR ANY CONTRACTOR THAT USES A DRAW SYSTEM FOR BILLING 
STATEMENTS, AGING REPORT, CONTRACT SUMMARY, JOB SUMMARY BY CONTRACT ETC. MODEL III 



ZBASIC 



!|QS (803)-552- 9990 

K&L SOFTWARE 

P.O.BOX 39093 NORTHBRIDGE STA. 
CHARLESTON, S.C. 29407 




PLEASE SPECIFY MODEL 1/ III AND DOS 
SORRY NO COD ORDERS PLEASE. 

ADD $2.00 PER ORDER FOR POSTAGE/HANDLING. 
ALLOW 21 DAYS FOR DELIVERY ON PERSONAL 
CHECK ORDERS. 

CALL TO PLACE VISA/MASTER CARD ORDERS, OR 
MAIL CARD NUMBER AND EXP. DATE. 

S.C. RESIDENTS ADD SALES TAX. 

TRS-80 MODEL l/lll REGISTERED TO TANDY CORP. 



108 Basic Computing 



Refer to advertiser index for reader service number 





Bulletin board 



This bulletin board space is available free to individuals with 
single or unusual items for sale or trade. Basic Computing 
reserves the right to reject any commercial advertising in this 
section and suggests using our display advertising for that 
purpose. 

These notices are free of charge and will be printed one time 
only on a space available basis. Notices will be accepted from 
individuals or bona fide computer user clubs only. All these 
unclassified announcements must be typed , contain 75 words 
or less and include complete name and address information. 



TRS-80 Model I, Level II, 32K 1 disk drive expansion 
interface, cassette, 15 disks, 10 tapes, 6 books, lots of business 
programs and games. Other original software complete with 
documentation and manuals, anti-glare screen, Lemon-Aid 
cassette loader (plum model) for hassle-free loads. Only $1200. 
Will ship C.O.D. with deposit (original cartons). Ray Frezza, 
2990 East Ashcroft, Fresno, CA 93726, (209) 225-7527. Buying a 
Model 4! 



Memory expansion for Model I: Used IM-2 Internal 
Memory Board from Holmes Engineering. 1 year old. Works 
perfectly. Gives you 48K inside keyboard case, complete with 
32K of top quality NEC memory. Easy to install. Was $1 40 new. 
Asking $75. Robert L. Dragon, 4012 S. 1555 W. Apt. 36B, West 
Valley City, Utah 84119, (801) 974-0576. 



5 games and educational software programs for sale. 
Asking $15 each program. Send for free list. For use on TRS-80 
Models I/III/4. Includes documentation. Contact Steve Rapp, 
Jr., 150 Dogwood Lane, Bloomfield, Indiana 47424-0311, (812) 
384-8735. 



Line Printer VI for only $400. Fast, 15” with tractor and 
friction, multiple fonts, graphics. Cover, new ribbon. S. 
Lenkowsky, 284 Highland, S. Norwalk, CT 06854, or (203) 838- 
1155 after 7 p.m. EST. Will ship. 



For sale: MT-32 Microtek Expansion 32K $80. Set of 32K 
chips $25. Software — mostly games and at least 1/3 off. Send 
SASE for list. Tom Wright, 602 Lee Ct. Waukesha, WI 53186. 



Dearborn (MI) TRS-80 Users Group meets 1st Saturday of 
each month at Bryant Library in Dearborn, MI. For further 
details, contact the president: Paul Sockow, (313) 459-9787 
(voice), (313) 459-8375 (modem), or vice president: Dale Fox 
(313) 261-5757 (voice), (313) 261-0885 (modem). 



LOCO-COCO— new users group for the COCO, in 
Louisville, KY. For more information, call (502) 458-6690 or 
(502) 458-0649. 



Would like to correspond with other Stringy-Floppy users: 
exchange ideas and programs. Also, I have for sale several 
Stringy-Floppy utilities and a (rather fancy) mailing list 
program (very reasonable prices). Send SASE for more 
information. Wayne King, Box 579, New York, NY 10040, (212) 
695-6802 or 567-3395. 



Mint condition Model II with 1 drive, DWP-410 printer, 
Scripsit, accounting system package plus extras for $6800. G. 
Gandara, 2142 Evangelina St., West Covina, CA (213) 912-0631. 



Model I Breadboard Interface. Includes power supply, cable 
and applications/tutorial book (TRS-80 Interfacing Book I by 
Jonathan Titus, Book II is available). The interface was 
designed to supplement the book. It’s an excellent trainer and 
practical interface. $125, John Spitale, 1144 Keats Dr., N. 
Canton, Ohio 44721, (216) 494-3754. 



Club address update: Southern Maine TRS-80 Users Group, 
82 Wellington Rd., Portland, ME 04103. 



Ventura County Color Computer Club (VC4) meets the 
third Wednesday of each month at the Oxnard Community 
Center on Habson Way in Oxnard, CA. Set-up time is 6:30 p.m. 
and the meeting starts at 7:00 p.m. Anyone interested can join 
us or, for more information, call Carol Simpson at (805) 499- 
3055. 



Need Smart80(E) terminal program for use on TRS-80 with 
ESF. Am using cassette version, but have upgraded to ESF and 
need that version. The program supports the buss decoding 
Microconnection modem. If you can help, write Fred 
Krautwurst, 4321 Delmar Dr., Montgomery, AL 36109. 



Fifth Annual Northeast Computer Show and Software 
Exposition Thursday-Saturday, November 17-19, 1983, at 
Boston’s Hynes Auditorium. Show hours: 10:30 a.m. to 5:30 
p.m. daily. For more information, call or write Northeast 
Expositions, 822 Boylston St., Chestnut Hill, MA 02167, 
(617) 739-2000 (Massachusetts). 



Brazilian Color Computer Club seeking anyone interested 
in exchange programs and/or experiences and information. 
Will answer 100%. TRS-80 Color Club, P.O. Box 2951, Rio de 
Janeiro, RJ. Brazil, CEP: 20000. 



For sale: Radio Shack Printer Interface cable (cat. no. 26- 
1411) for Model I. Runs printer without expansion interface. 
Used with Epson printer for one year. $20 or best offer. 
Matthew Schlawin, 722 East Frances St., Appleton, Wisconsin 
54911, (414) 731-5951. 




LAFAYETTE ESCADRILLE 



Heavily laden with bombs, your DH4 struggles into the 
air, narrowly clearing the trees at the end of the runway. 
The big bomber climbs steadily as you head eastward 
towards the rising sun. To the south a troop train chuffs 
hastily back from the front as you level off and turn 
southeast towards your objective. You hug the bottom of 
a concealing cloud layer as you cross the zig-zag 
trenches of the Western Front. So far— so good— the 
bridge you seek becomes visible in the distance. You 
throttle back and descend fora bombing run— But wait- 
look out! A Fokker Triplane has been stalking you! He 
closes in, guns blazing— You nose up, heading for the 
clouds— STALL!! 

Too bad, you didn’t make it, but there’s always a next time 
in Lafayette Escadrille. Fly any of two dozen WWI Allied 
or German bombers orfighers in this Real-Time Animated 
Action computer game. 

Cassette for 16K TRS80 Model I and III $19.95 

DISCOVERY GAMES 

936 W. Highway 36, St. Paul, MN 551 1 3 
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Introducing the Most Powerful 
Business Software Ever! 

TRS-80™ (Model 1, II, III, or 16) • APPLE " • IBM ” • OSBORNE™ • CP/M ” • KAYPRO™ 



The 



Each VersaBusiness module can be purchased and used independently, 
or can be linked in any combination to form a complete, coordinated business system. 



VERSARECEIVABLES™ $99.95 

VERSA Receivables™ is a complete menu-driven accounts receivable, invoicing, and 
monthly statement-generating system. It keeps track of all information related to who 
owes you or your company money, and can provide automatic billing for past due ac- 
counts. VERSA Recf.IV ABLF.S™ prints all necessary statements, invoices, and summary 
reports and can be linked with VERSALEDGER II™ and VERSAlNVENTORY™. 

VERSAPaYABLES t “ $99.95 

VerSaPayaBI.ES™ is designed to keep track of current and aged payables, keeping you 
in touch with all information regarding how much money your company owes, and to 
whom. VERSA PAYABLES™ maintains a complete record on each vendor, prints checks, 
check registers, vouchers, transaction reports, aged payables reports, vendor reports, 
and more. With VERSA PAYABLES™, you can even let your computer automatically select 
which vouchers are to be paid. 

VERSAPAYROLL™ $99.95 

Versa Payroll™ is a powerful and sophisticated, but easy to use payroll system that 
keeps track of all government-required payroll information. Complete employee records 
are maintained, and all necessary payroll calculations are performed automatically, with 
totals displayed on screen for operator approval. A payroll can be run totally, automati- 
cally, or the operator can intervene to prevent a check from being printed, or to alter 
information on it. If desired, totals may be posted to the VERSALEDGER II™ system. 

VERSAlNVENTORY™ $99.95 

VERSA INVENTORY™ is a complete inventory control system that gives you instant access 
to data on any item. VERSAlNVENTORY™ keeps track of all information related to what 
items are in stock, out of stock, on backorder, etc., stores sales and pricing data, alerts 
you when an item falls below a preset reorder point, and allows you to enter and print 
invoices directly or to link with the VERSARECEIVABLES™ system. VERSAlNVENTORY™ prints 
all needed inventory listings, reports of items below reorder point, inventory value re- 
ports, period and year-to-date sales reports, price lists, inventory checklists, etc. 



VERSALEDGER II™ $149.95 

VERSALEDGER II™ is a complete accounting system that grows as your business 
grows. VersaLedger II™ can be used as a simple personal checkbook register, 
expanded to a small business bookkeeping system or developed into a large 
corporate general ledger system without any additional software. 

• VersaLedger II™ gives you almost unlimited storage capacity 

(300 to 10,000 entries per month, depending on the system), 

• stores all check and general ledger information forever, 

• prints tractor-feed checks, 

• handles multiple checkbooks and general ledgers, 

• prints 17 customized accounting reports including check registers, 
balance sheets, income statements, transaction reports, account 
listings, etc. 

VERSALEDGER II™ comes with a professionally- written 160 page manual de- 
signed for first-time users. The VersaLedger II™ manual will help you become 
quickly familiar with VersaLedger IF", using complete sample data files 
supplied on diskette and more than 50 pages of sample printouts. 
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50 N. PASCACK ROAD, SPRING VALLEY, N Y. 10977 



SATISFACTION GUARANTEED! 



Every VERSABUSINESS™ module is guaranteed to outperform all other competitive systems, 
and at a fraction of their cost. If you are not satisfied with any VERSABUSINESS™ module, you 
may return it within 30 days for a refund. Manuals for any VERSABUSINESS™ module may be 
purchased for $25 each, credited toward a later purchase of that module. 

All CP/M-based Computers must be equipped with Microsoft BASIC 
(MBASIC or BASIC-80) 



To Order: 

Write or call Toll-free (800) 431-2818 
(N.Y.S. residents call 914-425-1535) 



* add $5 to CANADA or MEXICO 

* add proper postage elsewhere 



* add $3 for shipping in UPS areas 

* add $4 for C.O.D. or non-UPS areas 



DEALER INQUIRIES WELCOME 

All prices and specifications subject to change / Delivery subject to availability. 



TRS-80 trademark Tandy Corp. - APPLE trademark Apple Corp. IBM PC trademark IBM Corp. OSBORNE trademark Osborne Corp. - XEROX trademark Xerox Corp. KAYPRO trademark Non-Linear 
Systems, Inc. - TELEVIDEO trademark Televideo Systems, Inc. - SANYO trademark Sanyo Corp. - NEC trademark NEC Corp. DEC trademark Digital Equipment Corp. - ZENITH trademark Zenith Corp. 
TI PROFESSIONAL COMPUTER trademark Texas Instruments, Inc. • SUPERBRAIN trademark lntertec Corp. - CP/M trademark Digital Research - EPSTON trademark Epson Corp. 






Affordable Alternative 




First Time Available to the Public Is This 
Unbelievably Priced Sub-Set* of the Renowned 
LDOS Operating System. 

Order Yours Today for Only $59.00 Shipping & Handling 



ION 5.1 

TRS-80™ OPERATING SYSTEM 
MODEL I AND III 



•- 



* Note: smal-LDOS does not contain all the features or utilities of the original “FULL LDOS” system. 

* Model-I smal-LDOS provided on 35 track single density media. 

* Model-m smal-LDOS provided on 40 track double density media. 

* smal-LDOS can be provided on special media configurations at an additional 
charge. 

* Prices & Specifications are subject to change without notice, 
t Although not required, LSI recommends two or more drives when using smal-LDOS. 

DEALER INQUIRIES WELCOME. smal-LDOS is a product of LSI. TRS-80 is a trade- 
mark of Tandy Corp. 

Logical Systems, Inc. 8970 N. 55th P.O. Box 23956 Milwaukee, Wl 53223 
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(414) 355-5454 






BEAT THE 
SYSTEM 

Work on One Job While Printing Another 
with Radio Shack’s New Printer Controller 




Time-Saving PTC-64 
Printer Controller 



As 



Low As $26 Per Month 
On CitiLine Credit 



Increased Computing Efficiency. Save yourself time 
and money with the new PTC-64! As you work on one job, 
the PTC-64 prints another by receiving and storing infor- 
mation from your computer at top speed and feeding it to 
your printer as fast as the printer can handle it. This 
means excellent throughput and no downtime because 
your computer’s memory, processing power and disk 
drives are free for other tasks. Print out form letters as you 
compose a memo. Update payroll files at the same time 
next year’s projected budget report is being printed. The 
increased job output will pay for your PTC-64 in no time! 

Power and Flexibility. The compact PTC-64 Printer 
Controller is compatible with any standard parallel printer 
interface, and contains a Z-80A microprocessor with 62K 



Radio /hack 

The biggest name in little computers® 

A DIVISION OF TANDY CORPORATION 

Prices apply at participating Radio Shack stores and dealers. Special order may be required. 



RAM buffer for text storage. The PTC-64 also has a clear 
memory function, a pause function, and a copy function 
for printing up to 100 consecutive originals. You can get 
16 redefinable special characters, as well as unique pro- 
grammable functions that give you the flexibility to 
download alternate operating systems to generate a new 
ASCII character set, graphics data and more. You can 
activate functions from the panel keys or through soft- 
ware control. 

Available Nationwide. Learn how the PTC-64 Printer 
Controller can save you computing time and increase 
your efficiency. Stop in for a “hands-on” demonstration at 
your nearest Radio Shack Computer Center, participat- 
ing store or dealer. 

I NEW 1984 TRS-80 CATALOG! Send for your free copy. 

Mail To: Radio Shack, Dept. 84-A-582 

300 One Tandy Center, Fort Worth, Texas 76102 
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